Ввести 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 alt;0 then k:=k+1;
 end;
 if klt;=5 then writeln (верно, что количество отрицательных чисел не превышает 5)
 else
  writeln (неверно, что количество отрицательных чисел не превышает 5)
   end.