Вопрос по информатике:
Найдите произведение первых 10 элементов массива A состоящего из 50 элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
Пожаловаться
- 17.05.2018 04:21
- Информатика
- remove_red_eye 10023
- thumb_up 20
Ответы и объяснения 2
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(50,1,15);a.Println;
Writeln(a.Where((v,i)-> i x*y));
end.
Пример:
10 3 11 2 12 9 12 14 1 4 1 2 1 14 1 10 14 13 10 14 12 1 3 3 7 2 4 4 11 12 7 7 11 8 15 3 9 9 2 5 13 13 3 14 14 3 14 13 3 5
47900160
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(50,1,15);a.Println;
Writeln(a.Where((v,i)-> i x*y));
end.
Пример:
10 3 11 2 12 9 12 14 1 4 1 2 1 14 1 10 14 13 10 14 12 1 3 3 7 2 4 4 11 12 7 7 11 8 15 3 9 9 2 5 13 13 3 14 14 3 14 13 3 5
47900160
Пожаловаться
- 18.05.2018 17:54
- thumb_up 9
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write('массив: ');
var a:=ArrRandom(50,-10,10).Println();
write('произведение 10: ',a.Slice(0,1,10).Aggregate(Real(1),(x,y)->x*y));
end.
//Версия 3.3, сборка 1611
begin
write('массив: ');
var a:=ArrRandom(50,-10,10).Println();
write('произведение 10: ',a.Slice(0,1,10).Aggregate(Real(1),(x,y)->x*y));
end.
Пожаловаться
- 19.05.2018 03:57
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы