Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементов массива.
Ответы
Ответ дал:
0
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.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад