Дан массив случайных чисел,получить сумму и произведение элементов массива

Question

Дан массив случайных чисел,получить сумму и произведение элементов массива

Answer 1

const n = 10; //кол-во элементов в массиве

var i, sum, proiz: longint;  

a: array [1..n] of longint;

begin sum:=0; proiz:=1;  

 for i := 1 to n do  

 begin   

  a[i] := random(10)+1; //заполнение массива   

  write(a[i], ' '); //вывод  

 end;  

writeln; 

  for i := 1 to n do  

 begin    

 sum := sum + a[i]; //сумма   

  proiz := proiz * a[i]; //произведение

   end;   writeln('сумма ',sum);  

 writeln('произведение ',proiz);

end.