Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
Татьяна06111
09.04.2023 21:48 •
Информатика
Задан одномерный массив из n чисел. сосчитать: сумму,произведение и среднее арифметическое всех элементов массива
Ответ:
nacteylka
07.10.2020 17:11
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('Введите N=');
var mas:=ArrRandom(N,-99,99); mas.Println;
Writeln('суммa=',mas.Sum);
Writeln('среднее арифметическое=',mas.Average);
Writeln('произведение=',mas.Aggregate(biginteger(1),(x,y)->x*y));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
gg322
20.11.2022 06:21
3. Напишите для Робота алгоритм, закрашивающий клетки, расположенные рядом с вертикальной частью каждой ступени.Требуется закрасить только клетки, удовлетворяющие...
Nikitosqwerty
23.03.2022 00:58
РЕШИТЬ ТОЛЬКО НА С++ Шашку — в дамкиНа шахматной доске (8×8) стоит одна белая шашка. Сколькими она может пройти в дамки?(Белая шашка ходит по диагонали. на одну клетку...
PavelSol
09.09.2020 05:44
Дано целое трёхзначное положительное число. Напишите программу, выводящую число, полученное из цифр заданного числа, записанных в обратном порядке....
1234567Саша
21.09.2020 23:49
Логическая функция задана выражением `F=barA*barB+C*A+bar(B+C)` Найдите значение функции при `A=1`, `B=0` и `C=0`....
Артур13487в158168
20.10.2021 20:42
Напечатать все четырёхзначные натуральные числа, в записи которых есть одинаковые цифры. Составить программу....
alsav241357
05.09.2020 18:08
Із кількох таблиць може складатися база данних ?...
magamusaev201
08.03.2023 16:14
Найти кол-во всех трехзначных чисел, кратных 6 и заканчивающихся на 4. Pascal...
dimanyapr
23.05.2023 05:12
Дано натуральное число. Напишите программу, которая проверяет, является ли число трехзначным, и если да, то найдите сумму цифр...
vanaromanihinp077sx
04.09.2021 18:32
Дан целочисленный массив размера N. Преобразовать массив, увеличив все его серии наибольшей длины на один элемент.( серия- это группа одинаково идущих групп, например,...
marshall229
23.06.2021 08:01
Как удалить страницу в Вк ,если потерял к ней доступ ?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('Введите N=');
var mas:=ArrRandom(N,-99,99); mas.Println;
Writeln('суммa=',mas.Sum);
Writeln('среднее арифметическое=',mas.Average);
Writeln('произведение=',mas.Aggregate(biginteger(1),(x,y)->x*y));
end.