Нужна программа для Паскаля - Реверс массива.
Нужна программа для Паскаля - Реверс массива.
Гость
Ответ(ы) на вопрос:
Гостьvar
mas:array[1..1000] of integer;
N, i, c:integer;
begin
readln(N);
for i:=1 to N do
readln(mas[i]);
for i:=1 to (N div 2) do
begin
c:=mas[i];
mas[i]:=mas[N-i+1];
mas[N-i+1]:=c;
end;
for i:=1 to N do
write(mas[i],' ');
end.
Не нашли ответ?
Похожие вопросы