Поиск первого или последнего четного элемента массива - Turbo Pascal

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

поиск первого или последнего четного элемента: 1)в массиве есть хотя бы один такой элемент 2)в массиве может не быть такой элемент

Решение задачи: «Поиск первого или последнего четного элемента массива»

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

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,i1,ip:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
i1:=0;
ip:=0;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(50)-25;
  write(a[i]:4);
  if(a[i] mod 2=0)then{если четный}
   begin
    if i1=0 then i1:=i{и еще не было, то первый}
    else ip:=i;{иначе последний}
   end;
 end;
writeln;
if i1=0 then write('В массиве нет четных элементов')
else
 begin
  if ip=0 then ip:=i1;{если второго не нашли, значит последний=первому}
  write('Первый четный a[',i1,']=',a[i1],' последний a[',ip,']=',a[ip]);
 end;
readln
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для поиска первого или последнего четного элемента в массиве. Переменные:

nmax: максимальное количество элементов в массиве (константа)
a: массив целых чисел (переменная)
n, i, i1, ip: переменные для счетчика и индексов первого и последнего четных элементов (переменные) Код начинается с инициализации переменной nmax и объявления массива a. Затем происходит итерация по циклу, в котором пользователь вводит размер массива. После этого начинается основная часть кода. В ней происходит заполнение массива случайными числами от 0 до 50. Затем следует проверка каждого элемента массива на четность. Если элемент четный, то он записывается в переменную i1 (если еще не было четных элементов) или в переменную ip (если уже был найден четный элемент). После проверки всех элементов массива выводится информация о наличии четных элементов. Если i1 равно 0, то в массиве нет четных элементов. В противном случае выводится информация о первом и последнем четных элементах массива. В конце программы пользователю предлагается ввести данные для выполнения кода.