Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.