
Задан числовой массив, состоящий из 6 элементов. Посчитать и вывести на экран среднее
арифметическое всех чисел, больших 10.

Ответы на вопрос

// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ArrRandom(6,-50,50); a.Println;
Writeln('Среднее арифметическое чисел, больших 10: ',
a.Where(x->x>10).Average)
end.
Тестовое решение:
49 -30 -37 14 35 17
Среднее арифметическое чисел, больших 10: 28.75
2. Школьный вариант
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
var
i,s,k:integer;
a:array[1..6] of integer;
begin
Randomize;
s:=0;
k:=0;
for i:=1 to 6 do begin
a[i]:=Random(101)-50;
Write(a[i],' ');
if a[i]>10 then begin
s:=s+a[i]; Inc(k)
end
end;
Writeln;
if k>0 then
Writeln('Среднее арифметическое чисел, больших 10: ',s/k)
else
Writeln('Нет чисел, больших 10')
end.



Для решения этой задачи нужно выполнить следующие шаги:
1. Инициализировать числовой массив, состоящий из 6 элементов. 2. Пройтись по всем элементам массива и найти числа, которые больше 10. 3. Посчитать сумму всех найденных чисел. 4. Разделить сумму на количество найденных чисел. 5. Вывести полученное среднее арифметическое на экран.
Вот пример кода на языке Python, который реализует эту логику:
```python # Шаг 1: Инициализация массива numbers = [5, 15, 8, 20, 12, 7]
# Шаг 2: Поиск чисел больше 10 и подсчет суммы sum = 0 count = 0 for num in numbers: if num > 10: sum += num count += 1
# Шаг 3: Подсчет среднего арифметического if count > 0: average = sum / count else: average = 0
# Шаг 4: Вывод результата на экран print("Среднее арифметическое всех чисел, больших 10, равно:", average) ```
Пример вывода: ``` Среднее арифметическое всех чисел, больших 10, равно: 15.666666666666666 ```
В этом примере мы инициализируем массив `numbers` с шестью элементами. Затем мы проходим по каждому элементу массива, проверяем, больше ли оно 10, и если да, то увеличиваем счетчик и сумму. Затем мы вычисляем среднее арифметическое, разделив сумму на количество найденных чисел. Наконец, мы выводим полученное среднее арифметическое на экран.


Топ вопросов за вчера в категории Информатика







Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili