Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!
Вводятся 5 целых чисел вывести количество отрицательных . Помогите плиззз!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы