Матрицы

[VladimirAvakov]

Ребят всем привет. Дано задание:

Даны натуральное число n и квадратная матрица порядка n целочисленных элементов, где n≤15. Вычислить сумму элементов главной диагонали матрицы.

Вот мне помогли и написали программу:

const
  nmax = 15;

var
  a: array[1..nmax, 1..nmax] of integer;
  n, i, j, s: integer;

begin
  repeat
    write('Введите размер матрицы n (n <= 15): N=');
    readln(n);  
  until n in [1..nmax]; 
  s := 0; 
  writeln('Матрица:');  
  for i := 1 to n do  
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(9) + 1;
      write(a[i, j]:4);  
      if i = j then s := s + a[i, j]; 
    end;
    writeln; 
  end;
  writeln('S = ', s); 
end.

Я новичок и чайник в Паскале. Помогите мне, распишите мне каждую строчку, что она делает и зачем, мне очень срочно надо. (и в особенности строчка: a[i, j] := random(9) + 1; , почему от 1 до 9 (преподаватель говорит какой-то диапазон есть). Помогите пожалуйста, очень буду благодарен.

[Poma][a]

Чем эта тема не устроила?

[Stilet]

почему от 1 до 9

Действительно, почему?