Паскаль - Матрица

[Dog]

В данной действительной матрице размера n*m поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственны.

код матрицы

const
  n=5;
  m=5;

var
 a:array[1..n,1..m] of integer;
 i,j,min,max,t,k:integer;
begin
 t:=min;
 k:=max;
randomize;
for I := 1 to n  do    begin
for j := 1 to m  do    begin
  a[i,j]:=random(100);
  write(a[i,j],'  ');
  end;
  writeln;
end;
     writeln('=*==*==*==*==*==*==*==*==*==*==*==*==*=');

   min:=a[1,1];
   max:=a[1,1];

for I := 1 to n  do    begin
for j := 1 to m  do    begin
if min>a[i,j] then
     begin
    min:=a[i,j];
     end;
 if max<a[i,j] then
  begin
  max:=a[i,j];
  end;
  end;
  end;


  writeLn('min= ',min);
  writeLn('max= ',max);
  writeln;
  writeln('Poluchennaya');




  for i:=1 to n do  begin
  for j:=1 to m do
 write(a[i,j],'  ');
 writeln;
 end;
 writeln;
 readln;
end.

1) Как сделать так чтобы элементы мин и мах были единственными?
2) Как строки поменять с этими элементами?

[kakawkin]

ну вот есть программа такая. Пристроить её к твоей как делать нефиг:

program tt;
const n=3;m=4;
var b:array[1..n,1..m] of real;i,j,K,L:integer;c:real;
begin
 write('Меняем строку = ');readln(K);
 write('На строку = ');readln(L);
 for i:=1 to n do
  begin
   write(i,'-я строка таблицы: ');
   for j:=1 to m do
    read(b[i,j]);
  end;
 {перестановка строк}
 for j:=1 to m do
  begin
   c:=b[K,j];
   b[K,j]:=b[L,j];
   b[L,j]:=c;
  end;
 for i:=1 to n do
  begin 
   for j:=1 to m do
    write(b[i,j]:3);
   writeln;
  end;
end.

Я зделал всё в одном. Вроде вот так должно быть:

program tt;
const n=5;m=5;
var
 a:array[1..n,1..m] of integer;
 i,j,min,max,t,K,L:integer;c:integer;
begin
 t:=min;
 randomize;
 for I := 1 to n do begin
  for j := 1 to m do begin
   a[i,j]:=random(100);
  write(a[i,j],' ');
 end;
 writeln;
 end;
 writeln('=*==*==*==*==*==*==*==*==* ==*==*==*==*=');
 min:=a[1,1];
 max:=a[1,1];
 for I := 1 to n do begin
  for j := 1 to m do begin
   if min>a[i,j] then
    begin
     min:=a[i,j];
    end;
 if max<a[i,j] then
  begin
   max:=a[i,j];
   end;
  end;
 end;
 writeLn('min= ',min);
 writeLn('max= ',max);
 writeln;
 write('Меняем строку = ');readln(K);
 write('На строку = ');readln(L);
 for j:=1 to m do
  begin
   c:=a[K,j];
   a[K,j]:=a[L,j];
   a[L,j]:=c;
  end;
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j],' ');
   writeln;
  end; 
 writeln;
 readln;
end.

А как понять:

1) Как сделать так чтобы элементы мин и мах были единственными?

Как я понял можно зделать только так, что если такое число уже есть в массиве то его вводить нельзя

[Stilet]

Как сделать так чтобы элементы мин и мах были единственными?

Ну при вводе матрицы запоминай экстремумы, проверяя есть ли такой, если есть - проси пользователя переввести элемент.