Программа на языке Паскаль.

Question

Дан массив из 20 элементов, введенных с клавиатуры. Найти количество четных отрицательных элементов

Gal'ka *** · Accepted Answer

if (a [ i ] < 0) and(a [ i ] mod 2 = 0) then inc(k); 
начало и конец сама

Hamroyev Bekzod · Answer

var a:array[1..20] of integer; 
i,kol:integer; 
begin 
kol:=0; 
writeln('Введите массив'); 
for i:=1 to 20 do begin 
readln(a[ i ]); 
if (a[ i ]<0) and (a[ i ] mod 2 = 0) then kol:=kol+1; end; 
writeln('Колличество: ',kol); 
end.