Объясните все действия пошагово const m = 3; n = 4; var a: array[1..m,1..n] of real; i,j: integer; s: real; begin randomize; for i: = 1 to m do begin s: =0; for j: = 1 to n do begin a[i,j]: =random*13; write(a[i,j]: 6: 3,' '); s: =s+a[i,j]; end; writeln(' sr = ',s/n: 0: 3); end; end.

Const - постоянная т.е M - строк, N - стобцов => размерность матрицы MxN или 3х4.
Дальше объявляются переменные i,j - целочисленные и массив A вещественный и S тоже вещественный, т.е. дробное число.
В теле программы вызывается процедура Randomize - включает генератор случайных чисел.
Затем обходится массив: внешний цикл идет по строкам, внутренний по стобцам. Обнуляется переменная S.
В цикле заполняется массив случайными числами. Т.е. каждому элементу i строки и j столбцу в матрице присваивается значение.
Затем выводится на печать при и суммирует все элементы матрицы в переменную S.
Потом выводит Значение суммы поделенной на количество столбцов.
Все.
З.Ы. объяснять по-русски не умею =) 

Объяснил, как можно подробней.