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

Question

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

Answer 1

Const
    n = 10;

var
    i, d, k: integer;

begin
    for i := 1 to n do
    begin
        readln(d);
        if d < 0 then k := k + 1;
    end;
    
    if k <= 5 then  <br>        writeln('правда')
    else
        writeln('не правда');
end.