Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
maksud19750203oyaf73
07.07.2022 04:23 •
Информатика
Вмассиве, состоящем из 10-ти целых чисел, найти количество элементов, больше среднего арифметического элементов этого массива.
Показать ответ
Ответ:
sofafomenkosofa
21.06.2020 14:07
Var a:array[1..10] of real; i,j,m:integer; n:real;
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
frolovbogdan122
16.01.2020 01:38
Для какого из числ истинно высказыванием: (первая цифра четная) и не (сумма цифр чётная)? 1) 648 2)452 3)357 4)123...
сдаддае
16.01.2020 01:38
Заданы двоичные числа x и y. вычислить x+y и x-y, если: а) х = 1101001, y = 101111; б) х = 101110110, y = 10111001 в) х = 100011001, y = 101011 заданы двоичные числа x и y....
putin006
23.03.2023 20:44
Напишите программу вычисления среднего арифметического двух чисел. (в паскале) заранее )...
lsodh
26.03.2022 07:34
Надрукуйте в рядок всі цілі числа з інтервалу [200,500], в яких рівно дві однакові цифри ПАСКАЛЬ !! ...
Justacookie2003
18.04.2020 05:38
2. Сызбаны дәптеріңе толтыр. Программалық блоктағы үш жұмыс режимін жаз....
aizmesteva
25.04.2020 20:05
Решите задачу: Сколько секунд потребуется модему, передающему сообщения со скоростью 512 кбит/с, чтобы передать два файла 4 Мбайта и 6 Мбайта с объяснением...
131133
29.11.2022 01:52
Записать логическое выражение истинное при выполнении условия: три прямые y=k1x+b1, y=k2x+b2 и y=k3x+b3 пересекаются в точке (х0, у0)....
ABILAIKhan
25.03.2020 16:06
Ps you 10 LY10 Wat youOys. Any KC eswould never see or learn at home1. Travelling is not popular nowadaysTrue False2. There are many ways of travelingTrue False3 Lots of...
ktoya2
26.04.2020 17:49
2 Түсіну1. Шыңғыс тауына Матай елінің келу себебін түсіндіріңдер.2. Аңға шыққан Кебектің адасуына не себеп болды?3. Неліктен рубасылары екі жасты өлімге қияды?Талдау31. Еңлік...
liza1433
26.04.2020 17:49
Составьте уравнение реакций ионного обмена, подтверждающие качественный состав хлорида бария....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
n:=0;
m:=0;
for i:=1 to 10 do
begin
readln(a[i]);
n:=n+a[i];
end;
n:=n/10;
for j:=1 to 10 do
begin
if (a[j]>n) then m:=m+1;
end;
writeln(m);
end.