Массив из 10 элементов, диапазон от - 5 до 20.

Найти 1) кол-во четных отрицательных

2) минимальное среди положительных

Var a:array[1 ... 10] of integer;

i, k, min:integer;

begin

k:=0;

for i:=1 to 10 do begin

read (a[i]) ;

if (a[i] mod 2=0) and (a[i]<0) then

k:=k+1;

if a[i]>0 then min:=a[i];

end;

for i:=1 to 10 do

if (a[i]0) then min:=a[i];

writeln ('Количество четных отрицательных чисел ', k) ;

if min=0 then writeln ('Положительных элементов нету') else

writeln ('Минимальный положительный элемент массива ', min) ;

end.