Паскаль. Получить квадратную матрицу порядка N

[игорек36]

Паскаль. Получить квадратную матрицу порядка N

получить квадратную матрицу порядка n по заданному образцу
1 2 n-1 n
n+1 n+2 ... 2n-1 2n
2n+1 2n+2 ... 3n-1 3n
. . . . .
. . . .
. . . . .
(n-1)n+1 . n2-1 n2


:star2: на паскале нужно написать, экзамен не поставят без этого, помогите друзья

 

[игорек36]

1111

 

[Vladimir_S]

Да ладно, живите, сейчас нарисую. Папиросу только выкурю.

 

[Vladimir_S]

Пожалуйста. Делов-то на три минуты...

Const
 Nmax=10;

Var
 i,j,n:Byte;
 A:Array[1..Nmax,1..Nmax] of Byte;

Begin
 Write(' n (<=',Nmax,') = ');
 Readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=(i-1)*n+j;
     write(A[i,j]:4);
    end;
   writeln;
  end;
 Readln
End.

 

[игорек36]

спасибо огромное век не забуду)))))))))