Элементы вводятся последовательно по строкам, i – номер строки, j – номер столбца.
For i:=1 to n do
For j:=1 to m do Read(A[i, j]);
Если конкретный размер матрицы может меняться, то следует описать матрицу с запасом (максимальный размер по условию задачи), и вводить размеры матрицы, а затем ее элементы.
Const max=100;
Type matrix=array[1..max, 1..max] of Real;
{ или другой тип}
Var A: matrix;
Begin
Write ('Введите число строк'); Radln (n);
Write ('Введите число столбцов'); Radln (m);
Write ('Введите', m*n, 'элементов матрицы');
For i:=1 to n do
For j:=1 to m do Read (A[i, j]);
Вывод элементов матрицы.
Вывод матрицы на экран или в текстовый файл нужно производить в «матричной форме» (по строкам и столбцам), разделяя числа пробелами.
For i:=1 to n do Begin
For j:=1 to m do Write (A[i, j], ' ');{ выдаем строку}
Writeln {переводим курсор на следующую строку}
End;
Основные алгоритмы работы с матрицами.
Сумма элементов матрицы.
Простой алгоритм не требует дополнительных пояснений. Еще раз обращаем внимание на то, что переменная S должна быть обнулена.
S:=0;
For i := 1 to n do
For j := 1 to m do S:= S+ a[i, j];
Сумма главной диагонали квадратной матрицы.
Обращаем внимание на то, что элементы главной диагонали имеют равные номера строк (первый индекс) и номера столбцов (второй индекс).
S:=0;
For i:= 1 To n Do S:=S+a[i, i];
