Сколько элементов массива размерностью N ** M больше заданного числа R. Подсчитать...

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.