Заполнить массив случайными целыми числами в диапазоне [A, B], найти максимальный четный положительный элемент - Pascal

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

Здравствуйте,помогите пожалуйста написать код,спасибо.Напишите программу, которая заполняет массив из N элементов случайными целыми числами в диапазоне [ A , B ] и определяет максимальный среди чётных положительных элементов этого массива. Входные данные Входная строка содержит три числа: границы диапазона случайных чисел A и B , а также размер массива N . Все числа разделены пробелами. Гарантируется, что 0 < N ≤ 10000 . Выходные данные В первой строке программа должна вывести N элементов построенного массива, разделив их пробелами, а во второй строке – максимальный из чётных положительных элементов этого массива. Если в массиве нет таких элементов, программа должна вывести число -1. Примеры входные данные 0 100 10 выходные данные 0 3 86 20 27 67 32 16 37 42 86 входные данные -20 0 10 выходные данные -20 -20 -2 -16 -15 -6 -14 -17 -13 -12 -1

Решение задачи: «Заполнить массив случайными целыми числами в диапазоне [A, B], найти максимальный четный положительный элемент»

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

var a, b, n, m, t: Integer;
begin
  Randomize;
  ReadLn(a,b,n); m:=-1;
  for n:=1 to n do begin
    t:=a+Random(b-a+1); Write(' ',t);
    if (t>0) and not Odd(t) and (m<t) then m:=t;
  end; WriteLn;
  WriteLn(m);
end.

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

Создаются переменные:
- a: целое число, представляющее нижнюю границу диапазона;
- b: целое число, представляющее верхнюю границу диапазона;
- n: целое число, представляющее количество элементов в массиве;
- m: целое число, инициализированное значением -1;
- t: целое число.
Генерируется случайное начальное значение для генератора случайных чисел.
Вводятся значения a, b и n.
Устанавливается начальное значение максимального четного положительного элемента как -1.
Организуется цикл от 1 до n.
Внутри цикла:
- Генерируется случайное число в диапазоне от a до b включительно и присваивается переменной t.
- Выводится значение t.
- Проверяется, является ли t положительным, четным и большим, чем m. Если условия выполнены, значение t присваивается переменной m.
После завершения цикла выводится значение m. Этот код создает массив случайных целых чисел в диапазоне от a до b, а затем ищет в этом массиве максимальный четный положительный элемент, выводит массив и найденный максимальный четный положительный элемент.