Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ванёк20012001
11.10.2020 08:14 •
Информатика
Вычислить и вывести на экран 25 вещественных чисел их среднее арифметическое/максимальное.сами числа заданы случайным образом из диапозона [5; 25]
Ответ:
sandrokapanadze777
08.10.2020 13:01
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(25,50,250).Select(t->0.1*t).ToArray; a.Println;
Writeln('Максимальное значение: ',a.Max);
Writeln('Среднее значение: ',a.Average)
end.
Пример
22.4 10.2 19.6 7.9 8.1 7.4 8.9 18 24 9.6 6.3 12.6 6.4 24.3 12.4 19.5 24.7 8.3 11.3 6.5 8.9 23.6 23.4 14.9 8.8
Максимальное значение: 24.7
Среднее значение: 13.92
0,0
(0 оценок)
Популярные вопросы: Информатика
Q3max2011
20.04.2020 12:53
Двоичный код 101.101, перевидите в десятичный...
qwsdftuik
20.04.2020 12:53
Кнопка backspace програмы калькулятор предназначена для...
sadpoli
20.04.2020 12:53
Что может рассматриваться в качестве фрагмента текста?...
julianna19
27.05.2021 04:34
Количество ребер графа исходящих из вершины называется степенью этой вершины. сколько вершин степени 2 имеет граф?...
Утешитель
27.10.2021 22:09
Для какого из имен истинно следующее выска-зывание? не (первая буква гласная) и не (последняя буква согласная)1) емеля; 2) иван; 3) михаил; 4) никита.таблица истинности...
annasolovey63
05.02.2020 19:29
Написать программу , мне надо я буду каждому , 53 номер....
Olyakiti
31.12.2021 10:12
3 Напишите , заметку о типах компьютерных вирусов...
charaX
21.03.2021 10:16
Как на python вывести массив без запятых и скобок?...
kseniafomina99
12.11.2021 15:09
Что означает ctrl+pgdown и ctrl+pgup...
wayly
04.03.2020 07:15
решить 5 задач. По теме теория вероятности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(25,50,250).Select(t->0.1*t).ToArray; a.Println;
Writeln('Максимальное значение: ',a.Max);
Writeln('Среднее значение: ',a.Average)
end.
Пример
22.4 10.2 19.6 7.9 8.1 7.4 8.9 18 24 9.6 6.3 12.6 6.4 24.3 12.4 19.5 24.7 8.3 11.3 6.5 8.9 23.6 23.4 14.9 8.8
Максимальное значение: 24.7
Среднее значение: 13.92