Нужна программа для Паскаля - Реверс массива.

Question

Информатика

Ируша

12 июня, 19:48

Нужна программа для Паскаля - Реверс массива.

+3

Ответы (1)

Знаете ответ на вопрос?

Нинуля · Answer 1

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.