Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
sahverdijevelme1
05.03.2022 16:07 •
Информатика
Задан одномерный массив из n чисел. сосчитать: сумму,произведение и среднее арифметическое всех элементов массива
Ответ:
плиз168
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 оценок)
Популярные вопросы: Информатика
Cookiemi2017
29.05.2023 05:25
Проблема с FinalBIG / Непонятные символы в программе Непонятные символы в программе, как сменить кодак, то есть избавиться от символов? Слева картинка ( так и должно быть ) справо...
sukaheva
03.06.2023 09:12
2. Из Твери в Вышний Волочёк ведут три дороги, а из Вышнего Волочка в Санкт Петербург - четыре дороги. Сколькими можно проехать из Твери в Санкт Петербург через Вышний Волочёк? Изобразите...
akabakova56gmailcom
22.06.2022 00:46
Відкрийте середовище Scratch. 2. Складіть проект для малювання чотирьох квадратів зображених на малюнку (рис.1) Рис.1. Чотири квадрати 3. Збережіть проект з іменем практична робота...
Dyba
22.06.2022 00:46
Как сделать сайт с такими блоками в index.html...
svetokot2005
12.11.2022 06:09
ТАБЛИЦА ИСТИННОСТИ ПО ИНФОРМАТИКЕ...
miro4ka4546
01.04.2021 10:47
Составить алгоритм и программу для вычисления периметра и площади прямоугольного треугольника....
elendadgs
05.06.2023 06:48
На какой основе были созданы машины второго поколения...
Chevalier26
28.06.2022 17:24
6) машины второго поколения были созданы на 7) машины третьего поколения были созданы на 8) машины четвёртого поколения были созданы на основе.....
Alla123489
28.06.2022 17:24
Информационная емкость 3,5-дюймовой дискеты: а) 700 мб б) 700 кб в) 1,44 мб г) 1024 кб...
Russiansss
28.06.2022 17:24
Напишите программу вычисления суммы арифметической прогрессии , если известен ее начальный член и разность , а также количество ее членов...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.