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

0 голосов
97 просмотров

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


Информатика (15 баллов) | 97 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(53.1k баллов)