Объясните пожалуйста все действия пошаговоConst   M = 3;   N = 4;Var   A:array[1..M,1..N] of real;   i,j:integer;   S:real;BeginRandomize;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.

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