var A: array [1..N, 1..M] of integer; i, j, k: integer; s: real;
begin cls; k := 0; s := 0; randomize; for i := 1 to N do begin for j := 1 to M do begin A[i, j] := random(50) - 10; write(A[i, j]:6); s := s + A[i, j] //Сумма элементов end; writeln end; s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел) writeln('Srednee ', s:0:3); for i := 1 to N do for j := 1 to M do if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего writeln('Kolichestvo ', k) end.
Answers & Comments
const
N = 5; M = 6;
var
A: array [1..N, 1..M] of integer;
i, j, k: integer;
s: real;
begin
cls;
k := 0; s := 0;
randomize;
for i := 1 to N do
begin
for j := 1 to M do
begin
A[i, j] := random(50) - 10;
write(A[i, j]:6);
s := s + A[i, j] //Сумма элементов
end;
writeln
end;
s := s / (N * M); //Среднее арифметическое (сумму делим на количество ВСЕХ чисел)
writeln('Srednee ', s:0:3);
for i := 1 to N do
for j := 1 to M do
if a[i, j] > s then k := k + 1; //Считаем элементы большие среднего
writeln('Kolichestvo ', k)
end.
Для всего массива, для второй половины допиши сам