Дана последовательность n вещественных чисел определить количество отрицательных чисел в этой последовательности

Question

Информатика

Ларуля

30 марта, 08:47

Дана последовательность n вещественных чисел определить количество отрицательных чисел в этой последовательности

+2

Ответы (1)

Знаете ответ на вопрос?

Леня · Answer 1

Program z1;

var a, i, otr: integer;

b: array [1 ... 100] of integer;

begin

read (a) ;

for i:=1 to a do

read (b[i]) ;

otr:=0;

for i:=1 to a do

if b[i]<=0 then inc (otr) ;

writeln ('Количество отрицательных ', otr) ;

end.