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

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

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

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

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