Ввести с клавиатуры 7 чисел.Найти количество нечетных отрицательных чисел. (в программе...

Question

Ввести с клавиатуры 7 чисел.Найти количество нечетных отрицательных чисел. (в программе PascalABC.NET)

Answer 1

Var a,b:integer;
begin 
Write('Введите 7 чисел: '); 
for var i:=1 to 7 do 
begin    
read(a);   
if (a<0) and (abs(a) mod 2=1)     <br>then inc(b); 
end;    
writeln('Количество нечетных отрицательных чисел: ',b);  
end.

Пример:
 Введите 7 чисел: 1  9  12  -2  -5  -29  -50Количество нечетных отрицательных чисел: 2