Question

Составить приложение на языке Pascal.

С помощью ПК произвести обработку одномерного массива, заданного в таблице. Элементы одномерного массива задать числами в диапазоне – 20 . . . +50. Необходимо:
 описать массив;
 ввести элементы массива из заданного диапазона;
 выполнить с элементами массива действия, заданные в таблице;
 вывести результаты на экран.

Answer 1

===== PascalABC.NET =====

begin

 var n := 14;

 var a := ReadArrInteger(n);

 for var i := 0 to n div 2 -1 do

   Print(a[i], a[n-i-1])

end.