Помогите, пожалуйста, очень срочно Сколько элементов массива размерностью N на M больше заданного числа R. Подсчитать среднее арифметическое этих элементов.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
