Подпрограммы и обработка матриц

[Pravednik]

Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки.Найти среднее арифметическое из всех положительных элементов этой матрицы.
Помогите решить пожулуста я в етой теме вообше не шарю!

[AlDelta]

1. Какой язык?
2. Какие шаги уже сделаны?
3. Поиск по форуму использовал?
4. Смотри первые три ссылки в моей подписи.

[Pravednik]

Turbo Pascal 7.1 вот примерно что получается по моим догадкам
program matrica;
uses crt;
type matr=array[1..50,1..50]of integer;
var n,x,y:integer;
a:matr;
sum:integer;
procedure Summa(mas:matr;n:byte;var rez:integer);
begin
for x:=1 to n do
begin
rez:=0;
for y:=1 to n do

if (mas[x,y]>0)and(mas[x,y] mod 2=0) then
begin
rez:=rez+mas[x,y];
end;
writeln('sum v str ',x,' = ',rez);
end;
end;
begin
clrscr;
write('n=');readln(n);
for x:=1 to n do
begin
for y:=1 to n do
begin
a[x,y]:=random(10)-2;
write(a[x,y]:4);
end;
writeln;
end;
Summa(a,n,sum);
readln;
end.

[Карась]

Сезонное обострение? уже на форуме было три полностью одинаковых задания, причём обсуждали пару дней назад...

http://programmersforum.ru/showthread.php?t=12976