Задача 11.3. Надрукувати всi елементи прямокутного масиву С[6,7], що знаходяться пiд головною дiагоналлю. Елементи масиву обчислюються за формулою С[i,j]=i+j.

Program diagonal;
Var
C:array [1..6,1..7] of integer;
i,j:Integer;
Begin
{обчислення елементiв масиву}
For i:=1 to 6 do
 For j:=1 to 7 do
    C[i,j]:= i+j;
{вивiд масиву на екран у виглядi таблицi}
For i:=1 to 6 do
Begin
 For j:=1 to 7 do
 if j<=i Then Write (c[i,j]:4);
WriteLn;
End;
End.

Результати роботи програми:
2
3   4
4   5   6
5   6   7   8
6   7   8   9  10
7   8   9  10  11  12