Массивы двумерные

[Nika_D]

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

[Карась]

Удивлён...

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

Один в один условие задачи.... невероятно... Теорема "новички не пользуются поиском" доказана.

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

[Nika_D]

мне надо найти среднее арифетические, а там что-то другое. Только начало одинаковое...

[Карась]

Procedure Summa;   
VAR x, y: byte; Rez : real;   
BEGIN   
rez := 0;   
  FOR x := 1 To n Do   
   BEGIN   
     FOR y := 1 To n Do   
       IF mas[x,y * 2] > 0 Then   
        BEGIN   
         rez := rez + mas[x,y * 2];   
        END;   
       Writeln (rez:3:3); rez := 0;   
   END; Writeln;   
END;

Здесь надо удалить четыре символа и дописать два символа.
Это не сложно...