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

Question

Информатика

Платон

29 июля, 10:35

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

+2

Ответы (1)

Знаете ответ?

Сократ · 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.