Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Darina784
13.02.2021 13:22 •
Информатика
Pascal .заменить 1-й элемент одномерного массива на среднее значение его элементов.
Показать ответ
Ответ:
Ларибум
21.08.2020 08:56
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=1.0;
var n:=readinteger('n=');
var mas:=ArrRandomReal(n,-99,99);
var h:=mas.Select(t->round(t*100) /100).ToArray; h.Println;
for var i:=0 to n-1 do
a:=a*h[i];
a:=a*(1/n);
h[0]:=a;
writeln('среднее неометрическое =',a);
h.println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
8603184005291
09.05.2023 09:07
Кто тут свеж? ? я всё ещё не понимаю, что означает выделенная часть. ...
valdan2008
30.05.2020 13:24
1. что такое информация? 2. примеры получения зрительной информации.3. примеры достоверной и недостоверной информации.4. переведи: 512 кбайт = мбайт; 2,7 гбайт = кбайт.5. вася...
dylanboy
27.03.2022 14:55
Примеры и решений используя описанный на предыдущей странице псевдоязык. вы должны внимательно изучить эти примеры и написать решения для аналогичных, но других пример 1. нахождение...
ladysackulina
16.07.2020 22:54
6 часов в двоичную систему счислени...
сидоровнекит
10.03.2023 05:25
Задана квадратная матрица A размером NxN (N =10), состоящая из действительных элементов. Найти сумму всех ее элементов и заменить ею все диагональные элементы этой матрицы. НА...
superminikotik
05.06.2021 02:45
Для хранения растрового изображения размером 114 x 114 пикселей отвели 8 КБ памяти. Каково максимально возможное число цветов В палитреизображения?ответ:...
ANI577
21.10.2020 10:07
Запиши логические операции для алгоритма сложного условия (с переводом нужно...
Тосямдр
23.05.2023 18:43
1. Дано целое число. Проверить, является ли оно кратным 4, или кратным 6. Из диапазона чисел от 150 до 350. 2. Найти количество чисел кратных 12 из диапазона чисел от 50 до 500....
rusyabarnakov
19.04.2022 13:36
3. Зарисуй в тетрадь программу для движення робота по линин, подпиши, для чего нужны блоки 1-5 в программе:o1Учебникстр.92-97250 2518воI50 7551 Блок «Старт» - запускает программу2.3.4....
Анетта666
25.08.2020 03:28
Что-такое ашық және шартты рай дайте определение...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
begin
var a:=1.0;
var n:=readinteger('n=');
var mas:=ArrRandomReal(n,-99,99);
var h:=mas.Select(t->round(t*100) /100).ToArray; h.Println;
for var i:=0 to n-1 do
a:=a*h[i];
a:=a*(1/n);
h[0]:=a;
writeln('среднее неометрическое =',a);
h.println;
end.