Дети собирали яблоки. Им интересно узнать, сколько в среднем собрал каждый. Ограничения:
0<=N<=32000 0<=A[i]<=32000 Формат ввода N - количество детей A[1] A[2] ... A[N] - количество яблок, которое собрал i ребенок Формат вывода SRED - сколько в среднем собрал каждый ребенок с двумя знаками после запятой Пример ввода: 2 10 12 Пример вывода: 11.00 НАПИСАТЬ В ПАСКАЛЬ!Ответы на вопрос
Ответ:
Объяснение:
Не знаю, что пояснять)
var x,sr,c,n:integer;
begin
sr:=0;
readln (n);
for var i:=1 to N do begin
readln (x);
sr:=sr+x;
end;
writeln (sr/n:0:2);
end.
Ваша задача - написать программу на языке Паскаль, которая вычисляет среднее количество яблок, собранных каждым ребенком. Вам нужно принимать количество детей и количество яблок, собранных каждым ребенком, а затем вычислить и вывести среднее количество яблок.
Вот шаги, которые вы можете следовать:
1. Объявите переменные для хранения количества детей, количества яблок, собранных каждым ребенком, и среднего количества яблок.
2. Прочитайте количество детей с консоли.
3. Используйте цикл для чтения количества яблок, собранных каждым ребенком, и суммирования этих значений.
4. Вычислите среднее количество яблок, разделив сумму на количество детей.
5. Выведите среднее количество яблок на консоль с двумя знаками после запятой.
Вот пример кода на языке Паскаль, который выполняет эту задачу:
```pascal program AverageApples; uses crt; var N, i, sum: integer; avg: real; begin readln(N); sum := 0; for i := 1 to N do begin var apples: integer; readln(apples); sum := sum + apples; end; avg := sum / N; writeln(avg:0:2); end. ```
В этом коде `N` - это количество детей, `i` - это индекс для цикла, `sum` - это сумма яблок, собранных каждым ребенком, и `avg` - это среднее количество яблок. Цикл `for` используется для чтения количества яблок, собранных каждым ребенком, и суммирования этих значений. Затем среднее количество яблок вычисляется путем деления суммы на `N`. В конце среднее количество яблок выводится на консоль с двумя знаками после запятой.
Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili
