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.
На этот вопрос еще никто не ответил. Напишите свой ответ или воспользуйтесь поиском:
Новые вопросы