program summa;
var
k, i, j, m, n: integer;
sr,s: real;
a: array[1..50,1..50] of real;
begin
writeln('v vedite kolichestvo strok');
readln(m);
writeln('v vedite kolichestvo stolbcov');
readln(n);
writeln('v vedite elementi matrici ');
k:=m*n;
for i:=1 to m do {block vvoda}
for j:=1 to n do
begin
writeln('a[', i,',', j, '] = ');
readln(a[i,j]);
end;
s:=0;
for i:=1 to m do {vichislenue summ}
for j:=1 to n do
s:=s+a[i,j];
sr:= s/k;
writeln('vivod srednego znacheniya');
writeln('sr=', sr:2:2);
end.
вот моя программа для вычисления среднего как ее дописать чтобы!Сформировать одномерный массив В из тех элементов матрицы, которые больше полученного значения. Вывести полученный массив.