Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
МисАлександра
23.02.2022 22:25 •
Информатика
Задан одномерный массив из n чисел. сосчитать: сумму,произведение и среднее арифметическое всех элементов массива
Показать ответ
Ответ:
stesin761
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 оценок)
Популярные вопросы: Информатика
орлыварив
23.11.2021 13:44
Глаголы: говорит, читает, поёт, наблюдает, смотрит, слушает, объясняет - относятся к источнику информации или же приёмнику информации как можно быстрее ...
Brauberg898117
16.05.2021 21:38
Яка програма є редактором презентоцій?1.Paint2.Excel3.PowerPoint4.Word...
elen19871
18.12.2022 17:44
напишите на бумаге по-другому не пойму, бошка сломлена уроками...
SvetaMatyukhina
16.10.2022 12:24
Подскажите информатика, кодирование!...
zhanylganahmet
15.04.2023 21:03
C++ Статические поля и методы класса. Друзья класса. Паттерн проектирования «Одиночка» - Singleton. Создайте класс, у которого может быть только один объект (экземпляр)....
brll1bellrf43
20.12.2020 03:30
В кодировке Windows-1251 шестнадцатеричное представление некоторого слова имеет вид: e7 ef e8 f1 fc Декодируйте это слово, если известно, что в кодировке Windows-1251...
dasssshka1
03.02.2023 17:38
построить логическую схему...
omar2007
10.12.2022 09:52
Выберите внутренние устройства системного блока...
Юля5454554
18.05.2023 06:40
Составить алгоритм построения графической функции F(x) на отрезке [O,B....
alsumamadaliev
17.04.2023 22:58
Что делать если допустим есть ноутбук Asus я решил переустановить винду, после переустановки я подумал все круто и выключил его, на следующий день я его включаю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
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.