Разработать программу для нахождения максимального и минимального элементов

[lolkeklol]

Разработать программу для нахождения максимального и минимального элементов действительной матрицы размерности NxN (2 ≤ N ≤ 15) и, в случае если максимальный элемент окажется на главной диагонали, то все элементы главной диагонали заменить на минимальный элемент

[Artsiom]

Что у вас не получается?
Покажите свой вариант решения?
И, какой же ЯП?

[Artsiom]

Ок. Пока всё понятно?

var
  arrayN : array of array of real;
  N, i, j : integer;

begin
  Randomize;
  N := 2 + Random(3);//14
  SetLength(arrayN, N, N);

  for i := Low(arrayN) to High(arrayN) do
    for j := Low(arrayN) to High(arrayN) do
      arrayN[i][j] := Random*100 - 50.0;
end.

[Artsiom]

Угум, я списываюсь сам с собой.

var
  arrayN : array of array of integer;
  N, i, j : integer;
  min, max : integer;
  maxI, maxJ : integer;
begin
  Randomize;
  N := 2 + Random(14);
  SetLength(arrayN, N, N);

  min := 0;
  max := 0;

  for i := Low(arrayN) to High(arrayN) do
    for j := Low(arrayN) to High(arrayN) do
    begin
      arrayN[i][j] := Random(50) + 10;

      if min > arrayN[i][j] then
        min := arrayN[i][j];

      if max < arrayN[i][j] then
      begin
        max := arrayN[i][j];
        maxI := i;
        maxJ := j;
      end;
    end;

  for i := Low(arrayN) to High(arrayN) do
  begin
    Writeln('');
    for j := Low(arrayN) to High(arrayN) do
      Write('arr[', i, ',' ,j, ']=', arrayN[i][j], '; ');
  end;

  Writeln('');
  Writeln('min = ', min);
  Writeln('max = ', max);
  Writeln('maxI = ', maxI);
  Writeln('maxJ = ', maxJ);

  if maxI = maxJ then
  for i := Low(arrayN) to High(arrayN) do
  begin
    Writeln('');

    for j := Low(arrayN) to High(arrayN) do
    begin
      if i = j then
        arrayN[i][j] := min;

      Write('arr[', i, ',' ,j, ']=', arrayN[i][j], '; ');
    end;
  end;

  Readln;
end.

Без учета, что максимальных чисел может быть несколько + хз как сделать табуляцию между элементами, посему только целые двузначные числа.

[olej.tsil]

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

Угум, я списываюсь сам с собой.

Тихо сам с собою я веду бесе-е-еду.