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

Question

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

Answer 1

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