Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив - Free Pascal

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

1. Значение элементов в обратном направлении 2. Значение элементов с четными индексами 3. Значение элементов с нечетными индексами 4. Значение парных элементов массива 5. Значение нечетных элементов массива 6. Значения элементов массива> 50 7. Значение элементов массива <50

Решение задачи: «Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив»

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

const n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  randomize;
  write('A:');
  for i:=1 to n do begin
    a[i]:=random(101);
    write(a[i]:4);
  end;
  writeln;
  writeln('1.'); for i:=n downto 1 do write(a[i]:4);writeln;
  writeln('2.'); for i:=1 to n do if not odd(i) then write(a[i]:4);writeln;
  writeln('3.'); for i:=1 to n do if odd(i) then write(a[i]:4);writeln;
  writeln('4.'); for i:=1 to n do if not odd(a[i]) then write(a[i]:4);writeln;
  writeln('5.'); for i:=1 to n do if odd(a[i]) then write(a[i]:4);writeln;
  writeln('6.'); for i:=1 to n do if a[i]>50 then write(a[i]:4);writeln;
  writeln('7.'); for i:=1 to n do if a[i]<50 then write(a[i]:4);writeln;
end.

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

В начале кода объявляются переменные: — n — количество элементов в массиве (10); — a — массив для заполнения числами; — i — счётчик для цикла.
Выполняется процедура randomize, которая инициализирует генератор случайных чисел.
Выводится сообщение «A:» и начинается заполнение массива a случайными числами от 0 до 100 с помощью цикла for.
Выводится сообщение «1.» и начинается выведение элементов массива a в обратном порядке (сначала четные, потом нечетные).
Выводится сообщение «2.» и начинается выведение только четных элементов массива a.
Выводится сообщение «3.» и начинается выведение только нечетных элементов массива a.
Выводится сообщение «4.» и начинается выведение только нечетных элементов массива a, которые не являются нечетными числами.
Выводится сообщение «5.» и начинается выведение только четных элементов массива a, которые не являются четными числами.
Выводится сообщение «6.» и начинается выведение только элементов массива a, которые больше 50.
Выводится сообщение «7.» и начинается выведение только элементов массива a, которые меньше 50.