Question

Объясните пожалуйста все действия пошагово

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.

Answer 1

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

Answer 2

спасибо)

Answer 3

можешь мне ещё задачки попробовать решить?