Дана последовательность из N чисел. Написать программу которая подсчитывает количество отрицательных чисел в последовательности.

Question

Информатика

Лаврич

25 ноября, 08:03

Дана последовательность из N чисел. Написать программу которая подсчитывает количество отрицательных чисел в последовательности.

+3

Ответы (1)

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

Парамон · Answer 1

Var a, s, i, n:integer;

begin;

randomize;

readln (n) ;

writeln ('False array:') ;

for i:=1 to n do

begin;

s:=random (-10,10) ;

writeln (s) ;

if s<0 then inc (a) ;

end;

writeln ('Result:', a) ;

end.