Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
pe4cha
06.08.2020 10:03 •
Информатика
1)найти произведение всех элементов массива из 7 чисел 2)найти минимальный и максимальный элемент массива
Ответ:
Умник0666
07.10.2020 15:47
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,-99,99); a.Println;
Writeln('П=',a.Aggregate(int64(1),(p,q)->p*q));
Writeln('Max=',a.Max,', min=',a.Min)
end.
Пример
67 -92 -23 78 60 -64 -95
П=4034037196800
Max=78, min=-95
0,0
(0 оценок)
Популярные вопросы: Информатика
Евгешаточкару2006
26.02.2023 07:19
в ячейку адресом В1 занесена формула:=0,314Е+1*2*А1 чему равно значение Клетки В1, если значение Клетки А1 равно 4...
arkadikmxitary
22.12.2021 07:22
Хватит ли 3 ГБ оперативки на iPad mini 52019 года для пабг мобайл? ...
Vitiaaaa
30.12.2020 02:20
с информатикой! Написать алгоритм, в котором переменной Y присваивается значение большей из трёх величин a, b и c...
pollywhite1
07.03.2020 10:36
Делфи Разработать проект на основе готовой спецификации, в котором добавлять строки в ListBox, представляющие собой таблицу кубов целых чисел, вводимых в компоненте UpDown....
tyfftgv
15.01.2023 16:18
не работает один безпроводной наушник aceline!! Во время просмотра сериала вдруг выключился один наушник я пыталась зарядить но толку ноль иногда(в момент когда я кладу его...
Kiri205
10.03.2023 07:30
Вычисли значение математического выражения в MS Excel: (61+168)−2(72:(2+15)). (ответ округли до сотых)...
Никk
12.05.2021 17:39
Чему будет равно значение ячейки с1,если в нее внести формулу =A1+B1...
kirillsmex13p07s3r
25.12.2020 03:52
Напишите программу которая находит сумму чисел кратных 3 и оканчивающихся на 7 Буду очень благодарен!)...
Keranius
26.11.2020 09:37
по информатике нужно построить куб в программе паинт из квадратов с изменением размеров...
Ola1325
30.11.2022 04:20
Для виготовлення однієї книжкової полички потрібно 5 дошок довжиною 70 см та 3 дошки довжиною 80 см. У цех постачаються дошки довжиною 3 метри. Знайдіть оптимальний план розрізу...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(7,-99,99); a.Println;
Writeln('П=',a.Aggregate(int64(1),(p,q)->p*q));
Writeln('Max=',a.Max,', min=',a.Min)
end.
Пример
67 -92 -23 78 60 -64 -95
П=4034037196800
Max=78, min=-95