Question

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

Answer 1

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.

Answer 2

const n=10;
var   
a:array[1..n] of integer;
   i,sum,pr:integer;
begin
  pr:=1;
  for i:=1 to n do
    begin
     read(a[i]);
      sum+=a[i];
        pr*=a[i];
   end;
write('произведение равно:',pr,' сумма равна:', sum);
end.