10 класс! ПАСКАЛЬ АБС! ! состиавить прогораму которая в обычном двумерном массиве выведет на печать индекс тех элементов, кот. больше среднего

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.

Информатика