Массив из 15 целых чисел заполнить, присваивая элементам с четными номерами значение -20, а элементам с нечетными номеpами - значение 10. - Turbo Pascal

Формулировка задачи:

Составьте проги, типо: Program a1; var ... ... ... end. 3)Массив из 15 целых чисел заполнить, присваивая элементам с четными номерами значение -20, а элементам с нечетными номеpами - значение 10. Заранее спасибо за уделённое время!)

Решение задачи: «Массив из 15 целых чисел заполнить, присваивая элементам с четными номерами значение -20, а элементам с нечетными номеpами - значение 10.»

Листинг программы

uses crt;
const
 n=15;
var
 a: array[1..n] of integer;
 i: integer;
begin
 clrscr;
 for i:=1 to n do
 begin
  if (i mod 2 )= 1 then a[i]:=10
  else a[i]:=-20;
  write(a[i]:4);
 end;
 readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Постановка задачи заключается в том, чтобы заполнить массив из 15 целых чисел следующим образом: элементам с четными номерами присвоить значение -20, а элементам с нечетными номерами - значение 10. Переменная n определяет размер массива, который в данном случае равен 15. Переменная a представляет собой массив из 15 целых чисел. Каждому элементу массива присваивается значение в зависимости от того, является ли номер элемента четным или нечетным. Переменная i используется для итерации по элементам массива. В цикле for переменная i принимает значения от 1 до 15. Если номер элемента массива является нечетным, то его значение присваивается переменной a[i] и выводится на экран с помощью функции write. Если номер элемента массива является четным, то его значение присваивается переменной a[i] и также выводится на экран с помощью функции write. После выполнения цикла readln выполняется чтение ввода с клавиатуры, что позволяет пользователю проверить результаты работы программы.