Двумерные массивы: работа с диагоналями

a11
a22
a23
a32
a33
a14
a41
a44
1 2 3 4
1
2
3
4
Главная диагональ:
I=J
Побочная диагональ:
I+J=N+1
Заполнить произвольный массив размером
N x N (N<10) по следующему правилу:
00001
00010
00100
01000
10000
ClrScr;
Write('ВВеди N = ');Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
if (i+j = n+1) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]);
end;
writeln;
end;
Если побочная диагональ то заполнить ячейку 1 во всех остальных случаях 0

Фрагмент блок-схемы задачи заполнения побочной диагонали единицами
j , 1, N
Вывод a i , j
i , 1, N
a i , j= 0
Ввод N
i+j=N+1
a i , j= 1
Да
Нет

Замечание.
Если нужно что то сделать только
с главной диагональю,
то можно обойтись без вложенных циклов
For i:=1 to n do s:=s+ a[i,i];

Двумерный массив. Заполнение
a11
a22
a33
a44
a55
Удовлетворяет неравенству
i < j
Удовлетворяет неравенству
i > j
1
2
3
4
5
1 2 3 4 5

Двумерный массив. Заполнение
a15
a24
a33
a42
a51
Удовлетворяет неравенству
i+j
Удовлетворяет неравенству
i+j>n+1
1 2 3 4 5
1
2
3
4
5

Двумерный массив. Заполнение
a11
a22
a33
a44
a55
1
2
3
4
5
1 2 3 4 5
a42
a51
a24
a15
(i+j And (i
(i+j>n+1) And (i
(i+j>n+1) And (i>j)
(i+j
j)
Системы неравенств

Двумерный массив. Заполнение
Заполнить произвольный массив размером N x N (N<10) по следующему правилу:
00001
00011
00111
00011
00001
Это пересечение двух множеств. Элементы лежащие на и ниже побочной диагонали и элементы лежащие на и выше главной диагонали
Write('ВВеди N = '); Readln(n);
For i:=1 to n do begin
For j:=1 to n do begin
if (i+j>=n+1) and (i<=j) then a[i,j]:=1
else a[i,j]:=0;
write(a[i,j]:2);
end;
writeln;
end;
Проверяем условие принадлежности данному множеству

Двумерный массив. Сумма элементов
Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму элементов массива лежащих на главной диагонали.

Двумерный массив. Сумма элементов
i , 1, N
S =S + a i , i
Вывод S
Нахождение суммы элементов на главной диагонали за два прохода (в случае когда речь идет только о главной диагонали и остальной массив не нужен)