Войти Регистрация Спроси ai-bota

Найти среднее элементов массива, принадлежащих [a, b]. количество элементов и границы ввести с клавиатуры.

Ответ:

artenyancz

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 оценок)

Популярные вопросы: Информатика

qwead23p08iwf

05.06.2021 19:01

Что такое устройство для считывания и записи информации на диске...

GangstaPro

29.11.2021 16:03

Переведите числа в двуичную систему счисления: 540, 950, 1025....

регинамаг

29.11.2021 16:03

Составь циклический алгоритм приготовления блинов и запиши его в виде блок-схемы. используй эти команды: сделать тесто,поджарить блин,положить блин на тарелку. прежде чем составлять...

Glazkovanuriya

29.11.2021 16:03

Ввести с клавиатуры массив из 5 элементов, найти в нем минимальный элемент и его номер....

Лиза6327

30.04.2020 01:06

Поле БД, значения которого не повторяются...

pidgenatar

20.04.2023 15:06

Щоб додати анімацію об’єкту на слайді треба … Виберіть одну відповідь: виділити об’єкт обрати Меню Анімація вибрати бажаний анімаційний ефект з однієї із груп виділити обрати Меню...

Саша11111111111уу

22.06.2021 10:37

Почему важно соблюдение правил применения арифметических действий?(коротко)...

Настюся227

10.02.2023 15:26

Слово совершенно может быть сохранено в файле размером во сколько байтах...

Elizabetsimmer

08.09.2021 06:30

Автоматическая фотокамера производит растровые изображения размером 600 и 450 пикселей. при этом объем файла с изображением не может превышать 90 кбайт упаковка данных не производится....

анна2262

08.09.2021 06:30

Найти экстремиум, составив разветвляющуюся x=max(max(a,b)+min(b,c),b+d)...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку