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

Сформировать одномерный целочисленный массив размерностью N. Поменять местами первый элемент с последним, второй с предпоследним. Вывести на экран исходный и итоговый массивы.
Гость
Ответ(ы) на вопрос:
Гость
//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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы