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.