 
Для двумерного массива целых чисел размерностью 5 на 5/ Найти среднее значение положительных
элементов массива 0
        0
         0
        0
    Ответы на вопрос
 
        begin
var a:=MatrRandom(5,5,-10,10); a.Println(5);
writeln(a.ElementsByRow.Where(x->x>0).Average);
end.
Пример:
-3 2 -10 -5 -6
-1 0 4 -6 4
4 -4 3 -5 6
6 -10 4 2 -7
8 -6 9 -3 -1
4.72727272727273
 0
                    0
                     0
                    0
                 
            Для решения этой задачи можно использовать следующий алгоритм:
- Создайте двумерный массив размерностью 5 на 5 и заполните его целыми числами. 
- Создайте переменные "сумма" и "количество" и инициализируйте их нулевыми значениями. Они будут использоваться для подсчета суммы и количества положительных элементов массива. 
- Пройдитесь по каждому элементу массива в двойном цикле. 
- Проверьте, является ли текущий элемент положительным. Если да, то прибавьте его к переменной "сумма" и увеличьте значение переменной "количество" на единицу. 
- После завершения циклов проверьте, что значение переменной "количество" больше нуля. Если да, то найдите среднее значение положительных элементов, разделив сумму на количество. 
- Выведите найденное среднее значение. 
Ниже приведен пример реализации данного алгоритма на языке Python:
pythonarray = [
    [2, -3, 4, -5, 6],
    [7, -8, 9, 10, -11],
    [-12, 13, -14, 15, 16],
    [-17, -18, 19, -20, 21],
    [22, 23, -24, 25, -26]
]
sum_positive = 0
count_positive = 0
for row in array:
    for element in row:
        if element > 0:
            sum_positive += element
            count_positive += 1
if count_positive > 0:
    average_positive = sum_positive / count_positive
    print("Среднее значение положительных элементов: ", average_positive)
else:
    print("В массиве нет положительных элементов.")
В этом примере предполагается, что массив уже определен и заполнен значениями. Вы можете изменить значения в массиве или сгенерировать его случайным образом перед выполнением остальных шагов.
 0
                    0
                     0
                    0
                Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
- 
			Математика 
- 
			Литература 
- 
			Алгебра 
- 
			Русский язык 
- 
			Геометрия 
- 
			Английский язык 
- 
			Химия 
- 
			Физика 
- 
			Биология 
- 
			Другие предметы 
- 
			История 
- 
			Обществознание 
- 
			Окружающий мир 
- 
			География 
- 
			Українська мова 
- 
			Информатика 
- 
			Українська література 
- 
			Қазақ тiлi 
- 
			Экономика 
- 
			Музыка 
- 
			Право 
- 
			Беларуская мова 
- 
			Французский язык 
- 
			Немецкий язык 
- 
			МХК 
- 
			ОБЖ 
- 
			Психология 
- 
			Физкультура и спорт 
- 
			Астрономия 
- 
			Кыргыз тили 
- 
			Оʻzbek tili 
 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			 
			