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

Question

Информатика

Инфаз

7 марта, 12:43

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

+5

Ответы (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.