Дана матрица. Среди элементов над главной диагональю отыскать минимальный и максимальный

[Roshen]

Дана матрица. Среди элементов над главной диагональю отыскать минимальный и максимальный, поменять их местами, элементы под главной диагональю заменить нулями. Вывести полученную матрицу на экран

[Вадим Мошев]

Что сами пытались сделать?

[Lektorfuja]

Сообщение от Roshen

Дана матрица. Среди элементов над главной диагональю отыскать минимальный и максимальный, поменять их местами, элементы под главной диагональю заменить нулями. Вывести полученную матрицу на экран

может тут есть ответ>> http://pascalmatrix.narod.ru/vv.html

[Serge_Bliznykov]

Сообщение от Lektorfuja

может тут есть ответ

Ну, это проще написать, чем где-то что-то искать!

const n=10;
var
  a : array[1..n,1..n] of integer;
  i, j, minRow, minCol, maxRow, maxCol, tmp : integer;
begin
  {заполнить матрицу}
  Randomize;
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j] := Random(1000);
      Write(a[i,j]:4,' ');
    end;
    WriteLn;
  end; 

  {найти позицию минимального и максимального среди элементов НАД главной диагональю
    Внимание! Элементы на главной диагонали при этом не берутся! 
    Если они нужны, заменить 2 на 1 и внутренний цикл по J брать от i:     for j:=i to n do .... }
  minRow:=1; minCol:=2; maxRow:=1; maxCol:=2;
  for i:=1 to n do 
    for j:=i+1 to n do begin
      if a[i,j]<a[minRow, minCol] then begin minRow :=i; minCol:=j end;
      if a[i,j]>a[maxRow, maxCol] then begin maxRow :=i; maxCol:=j end;
    end;

  WriteLn('Минимальный элемент над гл.диагональю = ',a[minRow, minCol],' в позиции ',minRow,' ',minCol);
  WriteLn('Максимальный элемент над гл.диагональю = ',a[maxRow, maxCol],' в позиции ',maxRow,' ',maxCol);

  {поменять местами мин и макс}
  tmp := a[minRow, minCol];  a[minRow, minCol] := a[maxRow, maxCol]; a[maxRow, maxCol] := tmp;

  {обнулить все элементы под главной диагональю}
  for i:=2 to n do 
    for j:=1 to i-1 do 
      a[i,j]:=0;

  {вывести полученную матрицу на экран}
  for i:=1 to n do begin
    for j:=1 to n do Write(a[i,j]:4,' ');
    WriteLn;
  end; 
  
end.