Матрица, Двумерный массив Опции

[zoha]

Сделайте пожалуйста мне задачу.

Дана матрица B[N,M]. Найти максимальные и минимальные элементы в каждой строке и поменять их местами соотвественно.

[Адель]

что то типо этого...

const N=4;M=4;
var a:array[1..4,1..4] of integer;
i,j,max,min,l,k:integer;
imin,jmin,imax,jmax:integer;
Begin
Randomize;
for i:=1 to M do begin
for j:=1 to N do begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;writeln;end;
 jmin:=1; jmax:=1;
for i:=1 to M do begin
min:=a[i,1];
max:=a[i,1];
imin:=i; imax:=i;
for j:=1 to N do begin
if a[i,j]<min then
begin
  min:=a[i,j];
  imin:=i;
  jmin:=j;
end;

if a[i,j]>max then begin
  max:=a[i,j];
  imax:=i;
  jmax:=j;
end;
end;
a[imin,jmin]:=a[imax,jmax];
a[imax,jmax]:=min;
end;
writeln('Êîíå÷íàÿ ìàòðèöà');
for i:=1 to M do begin
for j:=1 to N do begin
write(a[i,j]:3);
end;writeln;end;
readln;
end.

Артемий ??

[zoha]

должно быть так:

начальная матрница
6 6 7 1 5
4 5 3 7 3
5 9 1 7 4
Конечная матрица
7 6 6 5 1
7 5 3 4 3
9 5 4 7 1