Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Тролейбузинка
03.11.2020 18:11 •
Информатика
Pascal .заменить 1-й элемент одномерного массива на среднее значение его элементов.
Показать ответ
Ответ:
фая49
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 оценок)
Популярные вопросы: Информатика
annamajoriva953
18.01.2022 23:35
Синформатикой! решить уравнение на языке паскаль: х=3а+7b-с...
shtoshpulodov
25.08.2020 22:19
Опиши действия робота, который выполняет эту программу: [ 4 ] 1.2.3.4.56....
AnselmaRain
10.08.2020 00:25
Определите тип данных ...
motoquence
03.02.2023 10:25
Составьте программу, выводящую на экран сообщение тонет или нет тело массой m и объемом V в воде. Масса и объем вводятся с клавиатуры. (плотность воды 1000 кг/м это сор по...
WakaAmigo
13.04.2023 19:19
Какую функцию выполняет запись x%=2...
Maria150305
13.01.2023 12:40
Соотнесите с правильным вариантом *...
Ram543
13.10.2020 22:04
написать программу на C# Найти: а) произведение всех целых чисел от 8 до 15; б) произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры; 1 a 20); в) произведение...
1234567890854
30.03.2022 01:28
Для чего нужна стратегия? скажите .не кратко 10...
Когалымчанин
07.11.2022 13:08
Укати 158 кассет, у нины на 20 меньше, чем у кати, а у миши в 2 раза больше, чем у обеих девочек. сколько кассет у детей?...
медвежонок41
14.11.2020 05:01
Яким утворені подані слова. доповніть ряд 3-4 власними . голосок, звучання, залізобетонний, маленький 40 , срончо!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.