Найти максимальный элемент массива из его элементов с нечетными номерами - Pascal ABC

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

Дан массив A размера N. Найти максимальный элемент из его элементов с нечетными номерами: A1, A3, A5, … , по значению кратный 7. Если таких нет – вывести сообщение об этом.

Решение задачи: «Найти максимальный элемент массива из его элементов с нечетными номерами»

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

program pr;
const
  Csize = 100;
var
  a: array [1..Csize] of integer;
  i, n, max: integer;
  f:integer;
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(100);
    write(a[i]:3);
  end;
  f:=0;
  max := a[1];
  for i := 1 to n do
    if (i mod 2 <> 0) and (a[i] mod 7 = 0) then
      if a[i] > max then
      begin
        max := a[i];
        f:=f+1;
      end;
      writeln;
      if f>0 then
      begin
  writeln('Максимальный элемент с нечётным индексом, кратный 7: ', max);
  end else writeln('Таких элементов нет');
end.

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

В данном коде объявлены следующие переменные:

n - размер массива, введенный пользователем;
a - массив целых чисел размером n;
i - переменная для итерации по элементам массива;
max - переменная для хранения максимального элемента;
f - переменная для подсчета количества найденных максимальных элементов. Сначала происходит инициализация массива случайными числами от 0 до 99. Затем идет цикл по нечетным индексам массива, где проверяется условие: если текущий элемент кратен 7 и больше текущего максимального элемента, то обновляется значение переменной max и счетчик f. После завершения цикла выводится сообщение о максимальном элементе с нечетным индексом, кратным 7. Если таких элементов нет, выводится соответствующее сообщение.