С клавиатуры вводится 20 целых чисел. Найти сумму и произведение нечётных и отрицательных

Question

Информатика

Тайко

29 апреля, 14:56

С клавиатуры вводится 20 целых чисел. Найти сумму и произведение нечётных и отрицательных

+2

Ответы (1)

Знаешь ответ?

Бернадетта · Answer 1

Var i, n, sum, summ: Integer;

begin

summ:=1;

for i:=1 to 20 do

begin

writeln ('Введите ', i,' число');

readln (n);

if (n mod 20) and (n<0) then

begin

Inc (sum, n);

summ:=summ*n;

end;

end;

writeln ('Сумма: ', sum);

writeln ('Произведение: ', summ);

end.