Матрицы. Тексты программ

Заполнение матрицы случайными числами и вывод

const 
  SzM = 10; 
  SzN = 10; 

var a: array [1..SzM,1..SzN] of integer;

begin
  var M := 4;
  var N := 5;
  for var i:=1 to M do // Заполнение
  for var j:=1 to N do 
    a[i,j] := Random(100); 
  writeln('Элементы матрицы: ');
  for var i:=1 to M do // Вывод
  begin
    for var j:=1 to N do 
      write(a[i,j]:4);
    writeln;  
  end;
end.

Ссылки

Программы для начинающих