Const n = 10; var a : array [1..n] of integer; r : boolean; i,j : integer; begin //Формирование массива пропущено
r := true; While r do begin if a[i] mod 2 =0 then begin for j := n-1 downto i + 2 do a[j] := a[j-1]; a[i+1] := 0; r := false; end; i := i +1; end; for i := 1 to n do writeln (a[i]); end.
Во избежании ошибок стоит учесть наличие такового элемента в массиве и размерность массива (чтобы его можно было корректно расширить на один элемент)
var a: array[1..n] of real; i, imax, imin: integer; r, rmax, rmin:real;
begin Randomize; Writeln('Элементы массива'); rmax:=-1; { заведомо меньше меньшего } rmin:=100; { заведомо больше большего } for i := 1 to n do begin r:=Random(10); a[i]:=r; Write(r,' '); if rmax<r then begin rmax:=r; imax:=i end; if rmin>=r then begin rmin:=r; imin:=i end end; Writeln; { меняем местами и выводим результат } a[imax]:=rmin; a[imin]:=rmax; Writeln('Конечное состояние массива'); for i := 1 to n do Write(a[i],' '); Writeln end.
•идём гулять конечно...