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

Question

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

Игнат20082412 · 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.

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

Популярные вопросы