"Переворот" массива

Пример. Было
1 2 3 4 5
Стало
5 4 3 2 1

code: #pascal
var
   a:array[1..100] of integer;
   i,r,n:integer;
begin
 readln(n);  {читаем размер массива}
 for i:=1 to n do
  read(a[i]);
 for i:=1 to n div 2 do   {сам "переворот"}
  begin
   r:=a[i];
   a[i]:=a[n-i+1];
   a[n-i+1]:=r;
  end;
 for i:=1 to n do
  write(a[i],' ');
 readln
end.

автор: yanyk1n

Поделиться:

Похожие статьи: