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

Question

Информатика

Блэир

4 июня, 20:13

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

+1

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