Вводятся 5 целых чисел вывести количество отрицательных - вопрос №14731825 от Поля200601 29.04.2020 22:40

Question

Информатика: Вводятся 5 целых чисел вывести количество отрицательных . !

Поля200601 · Answer

var
    a: array [1..100] of integer;
    i, n, k: integer;

begin
    n := 5;
    for i := 1 to n do
    begin
        read(a[i]);
        if a[i] < 0 then k := k + 1;
    end;

    write(k);
end.