Объясните пожалуйста все действия пошаговоConst M = 3; N = 4;Var A:array[1..M,1..N] of...

0 голосов
35 просмотров

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

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.


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



(1.5k баллов)
0

спасибо)

0

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

0 голосов

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


image
(5.3k баллов)
0

Забыл указать, что значения элементов матрицы "А" и переменной "S" выводится с точностью: 3 знака после запятой.