For i:=0 to 10 do A[i]:=i*2; for i:= 10 downto 0 do begin k:=A[10-i]; A[10-i]:=A[i]; A[i]:=k; end.
1) полученные числа: 0 1 2 3 4 5 4 3 2 1 0 2) 10 3) 10 9 8 7 6 5 4 3 2 1 0 4) 10 9 8 7 6 5 6 7 8 9 10 5) полученные числа: 1 0 3 2 5 4 7 6 9 8 10