Question

Посчитать количество только отрицательных элементов массива из 9 элементов заданных с клавиатуры

Answer 1

var a: real;

n, i: integer;

begin

for i:= 1 to 9 do begin

readln(a);

if a < 0 then inc(n);

end;

writeln(n);

end.