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.