Program MatrixExample; var matrix: array[0..3, 0..3] of Integer; i, j: Integer; begin for i := 0 to 3 do begin for j := 0 to 3 do begin if i + j < 2 then matrix[i, j] := 0 else if i + j = 3 then matrix[i, j] := 2 else matrix[i, j] := 1; end; end;
for i := 0 to 3 do begin for j := 0 to 3 do begin Write(matrix[i, j]); end; Writeln; end; end.
Program MatrixExample;
var
matrix: array[0..3, 0..3] of Integer;
i, j: Integer;
begin
for i := 0 to 3 do
begin
for j := 0 to 3 do
begin
if i + j < 2 then
matrix[i, j] := 0
else if i + j = 3 then
matrix[i, j] := 2
else
matrix[i, j] := 1;
end;
end;
for i := 0 to 3 do
begin
for j := 0 to 3 do
begin
Write(matrix[i, j]);
end;
Writeln;
end;
end.