Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kovalenkodenis6
09.01.2023 17:19 •
Информатика
Найдите все элементы линейного массива целых чисел, которые больше среднего арифметического элементов массовов. в паскаль.
Показать ответ
Ответ:
ruslan07072
03.10.2020 02:36
Var ar:array[1..5] of integer;
i:integer;
s:real;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
s:=s+ar[i];
end;
s:=s/5;
writeln('Среднее арифметическое:',s);
writeln('Result:');
for i:=1 to 5 do
if ar[i]>s then write(ar[i]:4);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Марош3
10.03.2020 10:24
Задача 3Изобразите фигуру по образцу, перемещая исполнителя из Т.А в Т.Б. ИспользуйтеПроцедуры для рисования квадрата, его стороны и перехода. В файле образец очень...
uosup81821
22.06.2021 02:50
А сколько яблок нужно добавить, чтобы можно было разделить все яблоки на цело между друзьями? На вход подаются два числа: количество друзей и яблок. На выходе должно быть одна строка,...
AgataKlemen03
30.09.2022 00:04
Автобус за 7 часов проехал 350 км.какое расстояние проедет за это же время автомобиль,если его скорость на 20 км/ч больше скорости автобуса? решить действиями с пояснением !...
alinamensikova
30.09.2022 00:04
Для чего необходима механическая обработка крупы...
vitalikpchel
30.09.2022 00:04
Разобрать по составу слово заиграло))...
апепе1
30.09.2022 00:04
Составьте уравнения реакций, отражающих свойства оксида алюминия....
alisabeletzkay
30.09.2022 00:04
Почему песни военных лет остаются популярными в наше время?...
iramaun
30.09.2022 00:04
Чем полезен и не полезен компьютер?...
DENUCKS
30.09.2022 00:04
Сравните обыкновенные дроби. 1)три пятых и пять восьмых. 2)семь двенадцатых и семь девятых. 3)одна четвёртая и три восьмых. 4)две пятых и три десятых. умоляю !...
rootiopa2
30.09.2022 00:04
Вкаком ряду все существительные имеют окончание «и»? по на по местност..от вокруг для сладост…в от стенок.....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
s:real;
begin;
for i:=1 to 5 do
begin;
readln(ar[i]);
s:=s+ar[i];
end;
s:=s/5;
writeln('Среднее арифметическое:',s);
writeln('Result:');
for i:=1 to 5 do
if ar[i]>s then write(ar[i]:4);
end.