Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
АннаКольцева
11.06.2021 03:02 •
Информатика
Составить программу для вычисления среднего роста учеников в классе. количество заранее не известно.
Показать ответ
Ответ:
marsel35
24.06.2020 12:29
Var a,b,c,d:word;
begin
read(b); c:=0;
for a:=1 to b do begin
read(d);
c:=c+d;
end;
write(c/b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zaira1979zaira11
08.03.2020 11:29
Какое количество информации понадобится для кодирования одной точки, если цветов в палитре 128...
vesnasurgut
08.03.2020 11:29
Получите внутреннее представление десятичного числа 2489 в ячейках памяти....
musiclove2
08.03.2020 11:29
Получите внутреннее представление десятичного отрицательного числа -967 в ячейках памяти....
Mrmr56
08.03.2020 11:29
Запишите число 23435,3 в экспоненциальной форме....
HelpmeTT
20.09.2022 09:19
PYTHON Напишите функцию, которая вычисляет площадь треугольника, заданного координатами своих вершин....
tetyanavasil
28.05.2023 18:48
Изучи предложенное изображение и определи, как изменится результат выполнения цикла после изменения цвета поля No 3 на красный цвет.3456.7891012O - робототниBCТВ 40 - #LPизменение...
vladholyngha
24.03.2020 02:12
, составить алгоритм в питоне Дано Х. Если х3+х2+х+1 не равно 0, вычеслить z=tg(y)+cos(y/2), если Y изменяется в интервале от -1 до 1 с шагом 0.2. Если z 0, вывести на печать...
Ане4ка3
16.01.2022 23:54
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза? i:=5; while i =... do begin writeln( Привет! ); i:=i-1 end;...
aliha001
24.04.2020 10:58
Перечислите, 3 действия, которые следует выполнить, чтобы не нарушать авторское право ...
alsu7691
25.04.2023 02:08
Что, по вашему мнению, стимулировало развитие техноло-гий обработки текстовой информации? Как это связано спонятием «безбумажные технологии»? Наступит ли такоевремя, когда все...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
read(b); c:=0;
for a:=1 to b do begin
read(d);
c:=c+d;
end;
write(c/b);
end.