Вопрос по информатике:
Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементов массива.
- 03.02.2018 16:04
- Информатика
- remove_red_eye 15145
- thumb_up 104
Ответы и объяснения 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.
- 04.02.2018 02:52
- thumb_up 16
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.