Поделитесь своими знаниями, ответьте на вопрос:
10 класс! паскаль ! состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот. больше среднего арифметического элементов массива. все это делается относительно i и j
var
a: array[1..100, 1..100] of real;
n, m, i, j: integer;
sr: real;
begin
write('введите количество строк матрицы '); readln(m);
write('введите количество столбцов матрицы '); readln(n);
writeln('исходный массив: ');
sr : = 0;
for i : = 1 to m do
begin
for j : = 1 to n do
begin
a[i, j] : = random(101) - 50;
write(a[i, j]: 5: 0);
sr : = sr + a[i, j];
end;
writeln;
end;
sr : = sr / (n * m);
writeln('среднее арифметическое равно ', sr);
writeln('элементы больше среднего арифметического: ');
for i : = 1 to m do
for j : = 1 to n do
if a[i, j] > sr then
writeln('a[', i, ', ', j, '] = ', a[i, j]);
end.