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.