Question

Вычислить сумму и произведение n. натуральных чисел.Предусмотреть ввод n с клавиатуры Паскаль

Answer 1

var n,i,ks,kp,h:integer;
begin;
kp:=1;
readln(n);
for i:=1 to n do
begin;
 readln(h);
 kp:=kp*h;
 ks:=ks+h;
end;
writeln('Сумма:',ks);
write('Произведение:',kp);
end.