Выдать номера позиций всех чётных элементов массива - Turbo Pascal

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

одномерный массив из 20 элементов Выдать номера позиций всех чётных чисел для проверки дополнительно выдать значения элементов массива. TURBO PASCAL 7.0

Решение задачи: «Выдать номера позиций всех чётных элементов массива»

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

program My_array;
// Copyright (C) ChiliPalmer777
uses crt;
const nMax=20;
 
var i : integer;
 A : array of integer;
 
begin
  clrscr;
  writeln(' Массив A:           Индексы четных элементов(в исходном массиве):');
  writeln;
  randomize;
 
  A :=  ArrRandomInteger(20, 0, 100);
  for i:= 0 to nMAx-1 do
    if (not odd(A[i])) and (A[i]<>0) then
      begin 
        writeln('   ',A[i]:3,' '*15,'позиция = ', i:5);
      end;
end.

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

В данном коде на Turbo Pascal происходит следующее:

Создается программа My_array.
Подключается библиотека crt.
Объявляются переменные: i - целочисленного типа, A - массив целых чисел.
Очищается экран с помощью функции clrscr.
Выводится сообщение «Массив A: ... Индексы четных элементов(в исходном массиве):»
Генерируется случайный массив A с помощью функции ArrRandomInteger.
Запускается цикл for, который проходит по всем элементам массива A от 0 до nMax-1.
Внутри цикла проверяется условие: элемент четный (not odd(A[i))) и не равен нулю (A[i]<>0).
Если условие выполняется, то выводится сообщение с номером позиции элемента и его значением. Номер позиции - это значение переменной i, а значение элемента - это A[i].
После завершения цикла выводится сообщение «позиция = i», где i - номер позиции.
Завершается программа.