Помогите, пожалуйста, очень срочно Сколько элементов массива размерностью N ** M больше...

Question

Помогите, пожалуйста, очень срочно Сколько элементов массива размерностью N на M больше заданного числа R. Подсчитать среднее арифметическое этих элементов.

Answer 1

const

  N = 5;

  M = 10;

 

var

  a: array [1..N, 1..M] of real;  

  s, R: real;

  kol, i, j: integer;  //kol - количество чисел

 

begin

  writeln('Введите R');

  readln(R);

  for i:= 1 to N do

  for j:= 1 to M do

  begin

    writeln('Введите a[', i, ', ', j, ']');

    readln(a[i, j]);

    if a[i, j] > R then

    begin

      kol:= kol + 1;

      s:= s + a[i, j];

    end;

  end;

  s:= s / kol;

  writeln(kol, ' чисел > ', R);

  writeln('Среднее арифметическое равно ', s);

end.