
В заданном массиве х(n,m) вычислить среднее арифметическое положительных элементов.


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

const
n=5;
m=10;
var
a:array [1..n,1..m] of integer;
i,j,sum,count: integer;
begin
count:=0; sum:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(41)-20;
write(a[i,j]:4);
if a[i,j]>0 then
begin
inc(count);
sum:=sum+a[i,j];
end;
end;
writeln;
end;
writeln;
write(sum/count:4:4);
end.



Для вычисления среднего арифметического положительных элементов в заданном двумерном массиве х(n, m), вы можете использовать следующий псевдокод:
Инициализируйте переменные sum и count с нулевыми значениями. Они будут использоваться для накопления суммы положительных элементов и подсчета их количества.
Пройдитесь по всем элементам массива х(n, m) с помощью двух вложенных циклов, перебирая все строки (n) и столбцы (m).
Для каждого элемента массива х(n, m) проверьте, является ли он положительным (больше нуля).
Если элемент положительный, добавьте его значение к переменной sum и увеличьте значение переменной count на 1.
После завершения циклов вычислите среднее арифметическое положительных элементов, разделив сумму (sum) на количество (count).
Результат будет средним арифметическим положительных элементов массива х(n, m).
Пример на псевдокоде:
bashsum = 0
count = 0
for i от 0 до n-1:
for j от 0 до m-1:
если х(i, j) > 0:
sum = sum + х(i, j)
count = count + 1
если count > 0:
среднее_арифметическое = sum / count
иначе:
среднее_арифметическое = "В массиве нет положительных элементов"
вывести среднее_арифметическое
Этот псевдокод вычислит среднее арифметическое всех положительных элементов в массиве х(n, m) или вернет сообщение, если в массиве нет положительных элементов.


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









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