"Переворот" массива
Категория: Delphi/Pascal
2012-02-09 21:29:32
Пример. Было
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
Поделиться: