Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Массив из 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.