Question

дан массив 5,8,3,7,9,11,3 поменяйте местами элемент 11 с элементом 8

Answer 1

var

 a: array [1..7] of integer := (5, 8, 3, 7, 9, 11, 3);

 tmp, i: byte;

begin

 writeln('Дан массив: ');

 for i := 1 to 7 do write(a[i]:4);

 writeln;

 tmp := a[6];

 a[6] := a[2];

 a[2] := tmp;

 writeln('Массив после замены: ');

 for i := 1 to 7 do write(a[i]:4);

 writeln;

end.