Оформить на языке паскаль - элементы массива а циклически сдвинуть на 1 позицию влево, а первый и последний элементы поменять местами.

233

433

Посмотреть ответы 2

Ответы на вопрос:

alievarena81

Информатика

4,6(12 оценок)

Var ar: array[1..10] of integer; i,c: integer; begin randomize; writeln('first array: '); for i: =1 to 10 do begin; ar[i]: =random(30); write(ar[i]: 4); end; for i: =2 to 10 do ar[i-1]: =ar[i]; c: =ar[1]; ar[1]: =ar[9]; ar[9]: =c; writeln; writeln('final array: '); for i: =1 to 9 do write(ar[i]: 4); end.

ALPELGOLD

Информатика

4,5(14 оценок)

Var n,m: integer; b: boolean; function fminmax(k: integer; d: boolean): integer; var a: array[1..30] of integer; j,max,min: integer; begin for j: = 1 to 30 do begin a[j]: = random(100)-50; write(a[j]: 4); end; max: = -100; min: =100; if b = true then for j: = 1 to k do begin if max < a[j] then max : = a[j]; fminmax: =max; end else for j: = n to 30 do begin if min > a[j] then min : = a[j]; fminmax: =min; end; end; begin write ('введите число < 25'); read(n); write ('определять max(true -да, false- нет)'); read(b); m: = fminmax(n,b); writeln; if b = true then write('max = ',m) else write('min = ',m); end.