Нужна программа для Паскаля - Реверс массива.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
