Двумерный массив. Сформировать матрицу, в которой элементы диагонали равны номеру строки - Pascal

Формулировка задачи:

1.Для данного целого положительного N сформировать матрицу A(n,n), в которой элементы диагонали равны номеру строки, а все остальные элементы - нулевые. 2.Создать вектор М, т.е. одно мерный массив, содержащий количество отрицательных элементов каждого столбца матрицы z(3,4). 3.Вычислить среднее арифметическое четных элементов матрицы У(4,5). Вычислить сумму элементов матрицы X(l,l), расположенных в закрашенной области.

Решение задачи: «Двумерный массив. Сформировать матрицу, в которой элементы диагонали равны номеру строки»

Листинг программы

uses crt;
const nmax=20;
var i,j,n: byte;
    a: array [1..nmax,1..nmax] of byte;
begin
repeat
write('n (Г*ГҐ ГЎГ®Г«ГҐГҐ ',nmax,') ='); readln(n);
until n in [1..nmax];
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
        if i=j then a[i,j]:=i else a[i,j]:=0;
        write(a[i,j]:3);
        end;
    writeln;
    end;
readln;
end.

Объяснение кода листинга программы

Этот код на языке Pascal формирует двумерный массив, в котором элементы диагонали равны номеру строки. Он делает это следующим образом:

Объявляются переменные i, j и n типа byte. Переменная n будет использоваться для ограничения максимального значения индексов в массиве.
Создается массив a типа array [1..nmax,1..nmax] of byte. Этот массив будет использоваться для хранения элементов двумерного массива.
В цикле repeat-until считывается число n от пользователя. Это число будет использоваться для заполнения массива.
В цикле for считывается значение i от пользователя. Это значение будет использоваться для заполнения элементов массива.
В вложенном цикле for считывается значение j от пользователя. Это значение будет использоваться для заполнения элементов массива.
Если i равно j, то элемент массива a[i,j] присваивается значению i. В противном случае, элемент массива a[i,j] присваивается значению 0.
Выводится значение элемента массива a[i,j].
Выводится символ новой строки.
Цикл for повторяется для каждого значения i от 1 до n.
После завершения цикла for, выводится символ новой строки.
Запрашивается следующее число от пользователя.
Цикл repeat-until повторяется до тех пор, пока считанное число n не будет в пределах допустимого диапазона индексов массива.
Выводится символ новой строки.
Программа завершается.