Заполнить массив случайными числами в количестве 20 штук. найти сумму и произведение элементов массива.
LadySmail
2
24.04.2019 02:30
3
Другие вопросы по теме Информатика
krivoruchenkoev
09.12.2020 10:36
romamuver
12.02.2021 12:03
DanielB2008
12.02.2021 12:03
MrsDrew
05.06.2019 06:50
румия2408
05.06.2019 06:50
ANJELIKA2030
05.06.2019 06:50
Marishka301
05.06.2019 06:50
Dashka2005Dashka2005
11.09.2019 18:00
Ivan326154353
22.10.2020 11:44
Популярные вопросы
- Два металлических шарика с q1 = 0.2 нкл и q2 = -0.6 нкл вследствие притяжения...
3 - Надо написать текст на тему муравьи нужны...
3 - Люди ,нужны аргументы к сочинению с1. проблема роли близких людей в нашей...
3 - Какие идеи древнегреческой философии близки лично тебе - человеку 21 века...
2 - Восстановите по данным парам слов пословицы и поговорки: коса-камень время-потеха...
1 - Объем водорода,необходимого для получения 340 грамм аммиака,если выход...
2 - 1. чему равна большая полость нептуна, если период его равен 165 лет 2....
3 - Плотность тела 13000 килограмм /метр куб вес тела 4,8h масса -?...
2 - Что значит этот символ: ~ информатика, егэ, а10...
2 - Если скорость 16км в час .засколько времени моно пробежать 5км...
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.