Question

Массив задается, а затем меняется:

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

Answer 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.