tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу, которая
Напишите программу, которая бы определяла среднее арифметическое значение элементов массива (конечно, это будет вещественная величина типа real)
karamanilya
3 09.09.2019 01:50
1
Ответы
Виола122006
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastushka162003
13.04.2020 10:55
Изучить материал. Создать многоуровневый список к примеру из файла. Можно внести свои изменения к персонажам и увлечениям. Главное, чтобы ваш список стал многоуровневым!...
рустамммм
13.04.2020 10:55
1. Укажите неправильные пользовательские идентификаторы: Rezultat_1, rezultat 1, 1_Rezultat, rezultat1, Doma, NDoma, nomer dom, nomer_doma, +, Сумма, SummaЭлементов,...
Galina303
13.04.2020 10:56
Условный оператор: if(x 1)theny:=x+11elsey:=x−23 . Выбери действие, которое будет выполняться в случае истинности условия: x 1 y:=x+11 y:=x−23...
ольга1718
13.04.2020 10:56
Выбери верно заданный диапазон.16:58A16:58A16^B58A16:B5816A:58B...
Grinberg2003
13.04.2020 10:56
Вычислить количество всех целых чисел, больших 10 и меньших 20. Решите паскаль!...
natchiy03
13.04.2020 10:57
Как вы понимаете понятие постановка проблемы...
dhgdfnhflk
13.04.2020 10:57
Сколько проверок будет выполнено при линейном поиске в массиве из 50 элементов максимального? 1. 48 2.51 3.49 4.50...
kisslenkayaozax1i
13.04.2020 10:57
нужно сделать эти задания по информатике...
Оливия131
13.04.2020 10:57
Напишите алгоритм и программу нахождения всех значений функции Y=2X-4, на отрезке X(от -4 до 4), с шагом 0,5. BASIC...
KateHe
13.04.2020 10:57
Написать программы к блок схемам...
Популярные вопросы
Звукобуквенный разбор имени Настя...
3
23.Оберіть правильний ланцюг живлення а) Товстолобик - водорості...
1
Найти общее решение дифференциального уравнения второго порядка...
2
в течении 2 часов мне надо сдавать(...
2
Скласти і записати власну коротку притчу про молоду людину, яка...
1
выделить все главные члены предложения Иду, как в картинную галерею,...
1
Знайдіть бічне ребро правильної чотирикутної піраміди, висота...
3
Зрители могут выйти из кинозала через узкие и широкие двери. Если...
2
Реши кроссворд на английском языке...
3
В школе 950 учащихся. Сколько пятиклассников в этой школе, если...
3
// Внимание! Если программа не работает, обновите версию!
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