Двумерные массивы, матрица

[NAt]

Двумерные массивы, матрица

подскажите пожалуйста:
Дан двумерный массив a, размером (nхm). Переставить каждый элемент главной диагонали с элементом первой строки.

 

[Léon1]

:telepat: Укажите язык программирования!

 

[NAt]

паскаль абс

 

[Vladimir_S]

подскажите пожалуйста:
Дан двумерный массив a, размером (nхm). Переставить каждый элемент главной диагонали с элементом первой строки.

Да уж - проблема века!

const
 Nmax=10;

var
 N,D,i,j:Integer;
 A:Array[1..Nmax,1..Nmax] of Integer;

Begin
 Write('N= ');
 Readln(N);
 Randomize;
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-3+Random(20);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 for j:=2 to N do
  begin
   D:=A[j,j];
   A[j,j]:=A[1,j];
   A[1,j]:=D;
  end;
 for i:=1 to N do
  begin
   for j:=1 to N do
    Write(A[i,j]:4);
   Writeln;
  end;
 Readln;
End.