Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
angelina1504
31.10.2021 13:38 •
Информатика
Найти среднее элементов массива, принадлежащих [a, b]. количество элементов и границы ввести с клавиатуры.
Ответ:
orrection124433
09.08.2020 07:21
Ну раз значения случайные, тогда так.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
a, b, кол, сч: ЦЕЛ;
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
ср_г: ВЕЩ;
УКАЗ
кол := Приём.Число();
Вывод.Цепь("^");
a := Приём.Число();
Вывод.Цепь(" ");
b := Приём.Число();
Вывод.Цепь("^");
СОЗДАТЬ(массив, кол);
ОТ сч := 0 ДО кол - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
КОН;
ср_г := 1;
ОТ сч := 0 ДО кол - 1 ВЫП
ср_г := ср_г * массив[сч]
КОН;
ср_г := Матем.степВВ(ср_г, 1 / кол)
Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)
КОН Задание.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анастасия29052003
29.06.2022 15:02
1какие четыре типа обработки информации можно выделить? примеры 2 какова схема процесса передачи информации?...
Dmitry81
29.06.2022 15:02
Считается. что каждый символ кодируется одним байтом . определите. чему равен информационный объем в битах следующего высказывания жан-жака руссо : тысячи путей ведут...
nadyushasemeni
04.02.2023 02:30
Написать программу,в которой пользователь предполагается дополнить до 100 некоторое целое число a(а-случайное число,меньше 100). ответ пользователя проверяется и комментируется....
маришка197
04.02.2023 02:30
Перечислите основные виды устройств, входящих в состав компьютера)...
Barbara7264
04.02.2023 02:30
Дан одномерный массив целых чисел м(12), определить количество и сумму нечетных чисел в массиве. вывести результат и массив м. нужна...
ZheniaBabich
04.02.2023 02:30
Сколько секунд потребуется модему, информацию со скоростью 33600 бит/с,чтобы пепедать растровое изобр размером 640#480 пикселей,при условии,что в палитре 16777216 цветов?...
20MIR01
04.02.2023 02:30
Составить программу вычисления произведения элементов массива в, если массив состоит из 10 элементов введенных с клавиатуры. )...
pidgenatar
04.02.2023 02:30
Перечислите основные виды устройств, входящих в состав компьютера...
corbaov2018
27.11.2021 17:38
Проследите как изменяются числа в каждом ряду и продолжите каждый из рядов вписав еще четыре числа 25,24,22,21 1,4,9,16...
yuliyanaumenko2
12.05.2022 06:17
Укажите наименьшее число яблок которое нужно одновременно взять из ящика не заглядывая в него чтобы среди них были хотябы 2 яблока одного сорта если в ящике находятся...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
a, b, кол, сч: ЦЕЛ;
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
ср_г: ВЕЩ;
УКАЗ
кол := Приём.Число();
Вывод.Цепь("^");
a := Приём.Число();
Вывод.Цепь(" ");
b := Приём.Число();
Вывод.Цепь("^");
СОЗДАТЬ(массив, кол);
ОТ сч := 0 ДО кол - 1 ВЫП
массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * (b - a + 1))) + a
КОН;
ср_г := 1;
ОТ сч := 0 ДО кол - 1 ВЫП
ср_г := ср_г * массив[сч]
КОН;
ср_г := Матем.степВВ(ср_г, 1 / кол)
Вывод.ЧВещ("^%g", ср_г, 0, 0, 0)
КОН Задание.