Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
polinasparrow
11.08.2022 23:11 •
Информатика
Найдите произведение первых 10 элементов массива a состоящего из 50 элементов.
Показать ответ
Ответ:
slava90100
07.10.2020 20:09
//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,0
(0 оценок)
Ответ:
mashka2511
07.10.2020 20:09
// 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
0,0
(0 оценок)
Популярные вопросы: Информатика
romashka1899
12.07.2021 00:28
Ввести четыре целые числа, найти наибольшее из них. пример 1 5 4 3 наибольшее число 5 напишите код в паскаль,...
razdor1996Rqzdor
12.07.2021 00:28
Дано целое число n 0. используя один цикл, найти сумму 1+1/(1! )+1/(2! )+1/(3! )++1/( c#...
olyaperminova
12.07.2021 00:28
Нахождение суммы ряда чисел 100+95+80+75++0 , !...
xZeoNx
12.07.2021 00:28
Вцветовой модели rgb для кодирования одного пикселя используется 3 байта. фотографию размером 2048x1536 пикселей сохранили в виде несжатого файла с использованием rgb-кодирования....
radacherepkova
14.08.2020 23:32
Для каждого из чисел: 12310, 45610 выполнить перевод: 102, 10 8, 10 16. для каждого из чисел: 1000112, 1010010112, 11100100012 выполнить перевод: 2 10, 2 8,...
KrIs1girl
14.08.2020 23:32
Написать прогу на паскале. дано натуральное число n. вычислить y=2*4*)....
кккк50овд
06.03.2020 18:55
Даны три стороны одного треугольника и три стороны другого треугольника . определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади. если...
ЛераКоролёва13
23.07.2022 06:55
Из перечня имен выберите те, которые удовлетворяют маске ? l*ck.*t? 1.click.txt 2. black.ppt 3. lock.sts 4. clock.tt 5. blink. uta 6.applock.stu 7. blocker.htm 8.elpack.ty...
dghhhghhhvj
30.05.2020 08:04
3.раскройте скобки в настоящем,будущем и времени( ) mr and mrs gray live in a big city,and they (1.have) a son. his name (2.be) pete. pete (3. not like) (4.wash). one...
12345TEREX
30.05.2020 08:04
Что такое сущность человека с точки зрения обществознания, и как она проявляется ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 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.
// Внимание! Если программа не работает, обновите версию!
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