Сформировать одномерный целочисленный массив размерностью N. Поменять местами первый...

Question

Сформировать одномерный целочисленный массив размерностью N. Поменять местами первый элемент с последним, второй с предпоследним. Вывести на экран исходный и итоговый массивы.

Answer 1

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer;
 k,i,c:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(9);
   write(ar[i]:4);
  end;
 writeln;
 c:=ar[1];
 ar[1]:=ar[n];
 ar[n]:=c;
 c:=ar[2];
 ar[2]:=ar[n-1];
 ar[n-1]:=c;
 writeln('Final array:');
 for i:=1 to n do
  write(ar[i]:4);
end.

Пример работы программы:
First array:
   4   5   0   0   4   4   8   5   7   7
Final array:
   7   7   0   0   4   4   8   5   5   4