Посчитать количество отрицательных элементов в паскале сделать нужно

Question

Информатика

Игораша

10 июля, 19:37

Посчитать количество отрицательных элементов в паскале сделать нужно

+3

Ответы (1)

Знаете ответ на вопрос?

Эдя · Answer 1

Var

count: integer;

input: real;

begin

count : = 0;

input : = 1;

while (input 0) do

begin

write ('Введите число (0 - закончить ввод) : ') ;

read (input) ;

if (input < 0) then

count : = count + 1;

end;

write ('Количество отрицательных - ', count) ;

end.