Заполнить массив из 15 элементов случайных целых чисел из диапазона [-15;+17]. Вывести его на экран. Определить количество четных элементов. В этом же массиве найти максимальный отрицательный Элемент. Выполнить работу в free pascal

Предыдущий
вопрос Следующий
вопрос

program RandomArray;
const
N = 15;
var
arr: array[1..N] of integer;
i, countEven, maxNegative: integer;
begin
randomize;
// Заполняем массив случайными числами из диапазона [-15;+17]
for i := 1 to N do
begin
arr[i] := random(33) - 15; // числа от 0 до 32, -15 для смещения к нужному диапазону
write(arr[i], ' ');
if arr[i] mod 2 = 0 then
countEven := countEven + 1;
if (arr[i] < 0) and ((maxNegative = 0) or (arr[i] > maxNegative)) then
maxNegative := arr[i];
end;
writeln;
writeln('Количество четных элементов в массиве: ', countEven);
writeln('Максимальный отрицательный элемент: ', maxNegative);
end.

Пример вывода:

5 -6 10 7 -3 16 1 14 -10 7 12 -6 -6 2 -14
Количество четных элементов в массиве: 9
Максимальный отрицательный элемент: -3