ввод элементов по формуле a[i]=1+2i вывод элементов в обратном порядкена паскале​

Вот код на Pascalprogram BackwardsArray;

const

 N = 5;

var

 a: array[1..N] of Integer;

 i: Integer;

begin

 // заполнение массива

 for i := 1 to N do

   a[i] := 1 + 2 * i;

 // вывод элементов массива в обратном порядке

 for i := N downto 1 do

   WriteLn(a[i]);

end.

В данном примере мы объявляем константу N, которая задает размер массива. Затем мы объявляем массив a и заполняем его элементы по формуле a[i] = 1 + 2 * i.

Для вывода элементов в обратном порядке мы используем цикл for с шагом -1, который начинается с последнего элемента массива и заканчивается первым элементом. В теле цикла мы выводим текущий элемент массива с помощью функции WriteLn.

После выполнения программы на экране должны появиться элементы массива a в обратном порядке:11

9

7

5

3

........,............