Найдите произведение первых 10 элементов массива A состоящего из 50 элементов.. Created by mgghjbb. informatika-ru

Найдите произведение первых 10 элементов массива A состоящего из 50 элементов...

danulpopov //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.

0 votes Thanks 1

AnonimusPro

Verified answer

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(50,1,15);a.Println;
Writeln(a.Where((v,i)-> i < 10).Aggregate(biginteger(1),(x,y)->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

2 votes Thanks 0

Answers & Comments

Verified answer

Помогите пожалуйста ,срочно нужно !!!!!Упростите выражение :cos в 4 степени альф...

Напишите 2-3 предложения с приставками не и ни...

Помогите пожалуйста составить программу :из слов дуб,робот и лак составить слово...

Помогите пожалуйста!!!В состав образца сплава массой 26,47 г входят алюминий,маг...

Помогите пожалуйста!!!Срочно надо!!!Буду благодарна!!!! Какую массу технического...

Помогите,пожалуйста ,буду очень благодарна .Мне срочно нужно!!!!!Составьте, пожа...

Помогите решить,пожалуйста: Решите неравенство 0,25х– 12 · 0,5х+ 32 ≥ 0...

Помогите пожайлуста!!!!Диагональ правильной четырехугольной призмы равна 15 см ,...

Найдите сумму 3 элемента увеличенного в 2 раза и 10 элемента увеличенного на 5 д...

Из 27 целых чисел,заданных с клавиатуры ,найти произведение отрицательных элемен...

рекомендуемые вопросы

Helpful Links

Helpful Social