Ниже представлен фрагмент программы, обрабатывающей одномерный целочисленный массив с индексами от 0 до 10. известно, что в начале выполнения этого фрагмента в массиве находилась возрастающая последовательность чисел, то есть a[0]
Const A:array[0..10] of integer =(0,1,2,3,4,5,6,7,8,9,10);var i,s,n:integer;begins:=27;n:=10;write(A:4);writeln;for i:=0 to n-1 do begin s:= s + A[i] - A[i+1] + 2;writeln(i:3,A[i]:4);end;write('s=',s);end.
var ar:array[1..10] of integer; max,min,i,kmax,kmin:integer; begin randomize;
max:=0; min:=1000;
for i:=1 to 10 do begin ar[i]:=random(1000)+1; if (ar[i] > max) then begin max:=ar[i]; kmax:=i; end else if (ar[i] < min) then begin min:=ar[i]; kmin:=i; end; write(ar[i],' '); end;
writeln();
if (kmax > kmin) then for i:=kmin+1 to kmax-1 do write(i,' ') else if (kmax < kmin) then for i:=kmax+1 to kmin-1 do write(i,' '); end.
