Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Kapusto4ga
21.05.2023 14:48 •
Информатика
Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (конечно, это будет вещественная величина типа real)
Ответ:
viktoriapleva
09.09.2020 22:38
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее значение равно ',a.Average);
end.
Пример
n= 15
-50 -39 -10 49 35 -11 -34 34 -28 37 45 45 -24 42 2
Среднее значение равно 6.2
0,0
(0 оценок)
Популярные вопросы: Информатика
vovadavydov56
22.01.2022 03:53
Что будет нарисовано после выполнения чертежником алгоритма?...
kuleminaIV
13.05.2022 19:24
Придумайте алгоритм вводящий три целых числа, определяющих количество максимальных чисел среди введенных. построить блок схему...
polina3782
06.02.2021 00:08
Натуральное число называется числом армстронга, если сумма цифр числа, возведенных в n-ную степень (где n – количество цифр в числе) равна самому числу. например, 153 = 13...
pokin45
21.04.2021 09:15
Составить программу которая вызначает сколько складаемых должно быть в сумме 1+2+3+4+ чтобы сумма оказалась больше чем задуманное число n . 25 . pascal abc...
ruslanalsibaev
21.04.2021 09:15
Написать программу : даны 3 переменные. поменять значения переменных по следующей схеме: a=c, b=a, c=b. , , в программе pascalabc, информатика...
алёчек
29.07.2021 06:51
Составить программу нахождения среднего арифметического всех целых чисел от 10 до 45. паскаль...
sahka03
22.02.2022 07:54
Известен размер файла в гигабайтах. найти размер файла в мегабайтах...
hjdbr
24.12.2020 23:18
Рост буратино 1 м , а длина его носа раньше была 9 м . каждый раз, когда буратино врал его нос удваивается .как только она стала больше роста .сколько раз он врал ?...
ivannanikolaeva
24.12.2020 23:18
8. дан целочисленный линейный массив. вставить в него число 100 после m-го элемента, если этот элемент четный. в противном случае – перед ним....
Alla221
24.12.2020 23:18
Найти молекулярную формулу газообразного вещества, содержащего 93,75% углерода и 6,25% водорода , если плотность этого вещества по воздуху равна 4,41....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Среднее значение равно ',a.Average);
end.
Пример
n= 15
-50 -39 -10 49 35 -11 -34 34 -28 37 45 45 -24 42 2
Среднее значение равно 6.2