
Напишите программу, которая находит среднее арифметическое всех элементов массива, которые делятся
на 3 и заканчиваются на 1.

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

var b,c,i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(10);
end;
for i:=1 to 10 do
c:=c+a[i];
b:=c div 10;
for i:=1 to 10 do
writeln(a[i]);
writeln('srednee ',b);
end.



Конечно, я могу помочь вам написать программу для нахождения среднего арифметического всех элементов массива, которые делятся на 3 и заканчиваются на 1. Вот пример такой программы на языке Python:
```python def find_average(arr): count = 0 total = 0
for num in arr: if num % 3 == 0 and num % 10 == 1: total += num count += 1
if count == 0: return 0
average = total / count return average
# Пример использования программы array = [31, 12, 21, 45, 11, 33, 91] result = find_average(array) print("Среднее арифметическое элементов массива, которые делятся на 3 и заканчиваются на 1, равно:", result) ```
В этой программе мы определяем функцию `find_average`, которая принимает массив в качестве аргумента. Внутри функции мы инициализируем переменные `count` и `total` для подсчета количества элементов, удовлетворяющих условиям, и для суммирования этих элементов.
Затем мы используем цикл `for` для перебора всех элементов массива. Внутри цикла мы проверяем, делится ли текущий элемент на 3 и заканчивается ли на 1, используя операторы `%` (остаток от деления). Если элемент удовлетворяет этим условиям, мы прибавляем его к переменной `total` и увеличиваем счетчик `count`.
После завершения цикла мы проверяем значение `count`. Если оно равно нулю, значит в массиве


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







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