Question

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

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 2<>0) and (n<0) then
begin
Inc(sum,n);
summ:=summ*n;
end;
end;
writeln('Сумма: ',sum);
writeln('Произведение: ',summ);
end.