Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение...

Question

Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементов массива.

Answer 1

var

a:array[1..20] of integer;

sum,mul,i:integer;

begin

randomize;

for i:=1 to 20 do

begin

a[i]:=random(100);

end;

sum:=0;

mul:=1;

for i:=1 to 20 do

begin

sum:=sum+a[1];

mul:=mul*a[1];

end;

writeln('Summa=',sum);

writeln('Multiply=',mul);

end.