Помогите, пожалуйста, дописать программу

[nzhidkov]

Помогите, пожалуйста, дописать программу

Дана действительная матрица А размером M*N, где M,N - заданные натуральные числа. Найти среднее значение всех элементов матрицы.
Среднее я нашел как сформировать одномерный массив??? Сформировать одномерный массив В из тех элементов матрицы, которые больше полученного значения. Вывести полученный массив.

 

[nzhidkov]

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;
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.

вот моя программа для вычисления среднего как ее дописать чтобы!Сформировать одномерный массив В из тех элементов матрицы, которые больше полученного значения. Вывести полученный массив.

 

[Long Cat]

Нужен сам массив размером 1..2500 и переменная p, в которой изначально будет 1.
После этого нужно пройти весь массив, и если значение элемента превосходит среднее, записать его в массив на место с индексом p, а p увеличить на 1

 

[nzhidkov]

Можете помочь кодом программы я просто завис и не могу програмно организовать это сравнение((((

 

[nzhidkov]

Long Cat, Спасибо сам написал благодаря твоему сообщению)))

 

[Long Cat]

Не за что