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

Question

Информатика

Сюзанна

30 октября, 00:10

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

+5

Ответы (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.