Вопрос по информатике:
Одномерный массив состоит из 15 элементов. Массив заполняется случайными числами из диапазона от 7 до 62. Выведите массив на экран в строчку и найдите произведение элементов массива.
Пожаловаться
- 08.01.2018 23:26
- Информатика
- remove_red_eye 12375
- thumb_up 22
Ответы и объяснения 2
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,7,62); a.Println;
Writeln('Произведение элементов ',
a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
24 43 36 54 9 37 42 9 34 14 24 42 21 44 16
Произведение элементов 1791312802990350925824
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,7,62); a.Println;
Writeln('Произведение элементов ',
a.Aggregate(BigInteger(1),(x,y)->x*y))
end.
Пример
24 43 36 54 9 37 42 9 34 14 24 42 21 44 16
Произведение элементов 1791312802990350925824
Пожаловаться
- 09.01.2018 14:36
- thumb_up 6
Вот тривиальное решение.
var
a:array [1..15] of integer;
i:integer;
p:BigInteger;
begin
p:=1;
for i:=1 to 15 do
begin
a[i]:=random(7,62);
p:=p*a[i];
write(a[i],'; ');
end;
writeln;
writeln('Произведение=',p)
end.
var
a:array [1..15] of integer;
i:integer;
p:BigInteger;
begin
p:=1;
for i:=1 to 15 do
begin
a[i]:=random(7,62);
p:=p*a[i];
write(a[i],'; ');
end;
writeln;
writeln('Произведение=',p)
end.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы