Question

составить блок-схему: найти количество отрицательных чисел из 50 введенных.

Answer 1

N:=0;

for i:=1 to 50 do begin

write('x[',i,']='); readln(x);

if x<0 then N:=N+1;

end;

writeln('N=',N);