Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.