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

Question

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

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);<br>end;
writeln('Result:',a);
end.