Question

Сформировать квадратную матрицу следующего вида:

Answer 1

Program Tewtel;
var a:array[1..5,1..5] of byte;
i,j,m:integer;
begin
for i:=1 to 5 do
for j:=1 to 5 do
begin
m:=i+j-1;
 if m<=5
  then a[i,j]:=m
  else a[i,j]:=m-5;
 if j<5
  then write(a[i,j])
  else writeln(a[i,j])
end;
end.