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

Question

Информатика

Александрин

16 ноября, 22:32

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

+4

Ответы (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.