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

СРОЧНО!!!35 баллов
напишите программу которая вводит с клавиатуры 10 чисел и вычисляет их сумму и произведение ( паскаль )

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

Var:a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,b1,b2:integer;
begin
readln(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10);
b1:=a1+a2+a3+a4+a5+a6+a7+a8+a9+a10;
writeln(b1);
b2:=a1*a2*a3*a4*a5*a6*a7*a8*a9*a10;
write(b2);
end.