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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.