Массив задается, а затем меняется: for i : = 1 to 10 do a[i] : = 11 - i; for i : = 10 downto 2 do begin tmp : = a[i - 1]; a[i - 1] : = a[i]; a[i] : = tmp; end; как выглядит массив после выполнения программы? 1)10, 9, 8, 7, 6, 5, 4, 3, 2, 1 2)9, 10, 7, 8, 5, 6, 3, 4, 1, 2 3)1, 2, 3, 4, 5, 6, 7, 8, 9, 10 4)2, 1, 4, 3, 6, 5, 8, 7, 10, 9 5)2, 3, 4, 5, 6, 7, 8, 9, 10, 1 6)1, 10, 9, 8, 7, 6, 5, 4, 3, 2
Вот полная программа:
var i,tmp: integer;
a: array[1..10] of integer;
begin
for i := 1 to 10 do
a[i] := 11 - i;
for i := 10 downto 2 do begin
tmp := a[i - 1];
a[i - 1] := a[i];
a[i] := tmp;
end;
for i:=1 to 10 do writeln(a[i]);
end.