Отсортировать и попарно сравнить элементы K-го и M-го столбца матрицы

aleksey_ov

Добрый вечер! Прошу помощи в решении след. задачи: Дана квадратная вещественная матрица n*n. Отсортировать(по возрастанию) и попарно сравнить элементы K-го и M-го столбца матрицы (Значения К и М вводятся пользователем).Попарно сравнить, как я понял, просто сравнивать пары элементов и писать, равны они или не равны, т.е типа true/false...Актуально
2 ответа

aleksey_ov

  const
    nmax=100;
  var
    a: array[1..nmax,1..nmax] of real;
    i,j,n,k,m,p,q: byte;
    buf: real;
begin
  randomize;
  write('vvedite n: '); readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+1;
      write((a[i,j]):5:1);
    end;
    writeln
  end;
 
  writeln('vvedite k,m');
  repeat
    readln(k,m);
  until (k in [1..n])and(m in [1..n]);
 
  for i:=2 to n do
  begin
    for j:=n downto i do
    begin
      if a[j-1,k]>a[j,k] then
      begin
        buf:=a[j-1,k];
        a[j-1,k]:=a[j,k];
        a[j,k]:=buf;
      end;
 
      if a[j-1,m]>a[j,m] then
      begin
        buf:=a[j-1,m];
        a[j-1,m]:=a[j,m];
        a[j,m]:=buf;
      end;
    end;
 
  end;
 
  for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:5:1);
      if a[i,k]=a[i,m] then write('   true') else write('   false');
    writeln;
  end;
  writeln;
  readln;
end.


aleksey_ov

ermolay, огромнейшее Вам спасибо!