Ввести n чисел .Верно ли что количество введённых отрицательных чисел не превышает 5.
В Паскале

var a: real; n,k,i: integer; begin writeln ('vvedi n'); readln(n); k:=0; for i:=1 to n do begin  writeln ('vvedi a'); readln(a); if a<0 then k:=k+1; end; if k<=5 then writeln ('верно, что количество отрицательных чисел не превышает 5') else  writeln ('неверно, что количество отрицательных чисел не превышает 5')   end.