Запросить у пользоватпля 3 целых числа. Подсчитать сумму отрицательных чисел среди введёных.

Question

Информатика

Федюша

12 августа, 09:22

Запросить у пользоватпля 3 целых числа. Подсчитать сумму отрицательных чисел среди введёных.

+1

Ответы (1)

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

Викентия · Answer 1

Program Otric;

var

mas: array [1 ... 3] of integer;

i, k: integer;

begin

k : = 0;

write ('Введите 3 числа: ') ;

for i : = 1 to 3 do

begin

readln (mas[i]) ;

if mas[i] < 0

then k : = k + 1;

end;

writeln ('Среди введенных чисел ', k, ' отрицательных') ;

end.