program RandomArray;

var
arr: array[1..15] of integer;
i, evenCount, maxNegative: integer;

begin
randomize;
evenCount := 0;
maxNegative := 0;

// Заполнение массива случайными числами и подсчет четных элементов
for i := 1 to 15 do
begin
arr[i] := random(33) - 15;
if arr[i] mod 2 = 0 then
evenCount := evenCount + 1;
writeln('arr[', i, '] = ', arr[i]);
end;

// Поиск максимального отрицательного элемента
for i := 1 to 15 do
begin
if (arr[i] < 0) and (arr[i] < maxNegative) then
maxNegative := arr[i];
end;

writeln('Количество четных элементов: ', evenCount);
writeln('Максимальный отрицательный элемент: ', maxNegative);
end.