помогите! после того как нашел min и max не могу их местами поменять!

[arty444]

program www;
const
  n = 4;
type
  a = array[1..n, 1..n] of integer;
type
  b = array[1..n, 1..n] of integer;
type
  c = array[1..n, 1..n] of integer;

var
  q: a;
  w: b;
  e: c;
  i, j, min, max: byte;

begin
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      q[i, j] := random(15);
      write(q[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      w[i, j] := random(15);
      write(w[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      e[i, j] := q[i, j] * w[i, j];
      write(e[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  max := e[1, 1];min := e[1, 1];
  for i := 1 to n do
    for j := 1 to n do
      if e[i, j] > max then max := e[i, j];
  if e[i, j] < min then min := e[i, j];
  writeln('Max: ', max);
  writeln('Min: ', min);
  readln;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

зачем под каждый массив отдельный тип данных? a,b,c вроде как одинаковые!
и почему буквы экономите, идентификаторы зачем так безжалостно сокращать?!
и зачем использовать тип Byte, чем Вам Integer не угодил?
тем более, что массивы состоят из Integer, а вспомогательные переменные - Byte

и зачем заполнять три массива, если дальше работа идёт только с третьим?
или это задание такое хитрое?


что же касается сути вопроса - нужно искать ни минимальное, максимальное значение, а ИНДЕКСЫ минимального и максимального.
это просто:
вместо

max := e[1, 1];min := e[1, 1];
  for i := 1 to n do
    for j := 1 to n do
      if e[i, j] > max then max := e[i, j];
  if e[i, j] < min then min := e[i, j];
  writeln('Max: ', max);
  writeln('Min: ', min);

пишите

  max_row := 1; max_col := 1;
  min_row  := 1; min_col := 1;
  for i := 1 to n do
    for j := 1 to n do begin
        if e[i, j] > e[max_row, max_col] then begin   max_row := i; max_col := j; end;
        if e[i, j] < e[min_row, min_col]  then begin   min_row := i; min_col := j; end
    end;
  writeln('Max: ', e[max_row, max_col]);
  writeln('Min: ', e[min_row, min_col]);

теперь догадываетесь, как поменять местами min и max ?

[arty444]

program www;
const
  n = 4;
type
  a = array[1..n, 1..n] of integer;
type
  b = array[1..n, 1..n] of integer;
type
  c = array[1..n, 1..n] of integer;

var
  q: a;
  w: b;
  e: c;
  i, j, min, max: byte; max_row, min_row, max_col, min_col,t:integer;

begin
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      q[i, j] := random(15);
      write(q[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      w[i, j] := random(15);
      write(w[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      e[i, j] := q[i, j] * w[i, j];
      write(e[i, j]:4);
    end;
    writeln;
  end;
  writeln;
 max_row := 1; max_col := 1;
  min_row  := 1; min_col := 1;
  for i := 1 to n do
    for j := 1 to n do begin
        if e[i, j] > e[max_row, max_col] then begin   max_row := i; max_col := j; end;
        if e[i, j] < e[min_row, min_col]  then begin   min_row := i; min_col := j; end
    end;
  writeln('Max: ', e[max_row, max_col]);
  writeln('Min: ', e[min_row, min_col]);
  t:=max_row;
  e[max_row, max_col]:=e[min_row, min_col];
  e[min_row, min_col]:=t;
  writeln;
  for i := 1 to n do 
  begin
    for j := 1 to n do 
    begin
      e[i, j] := q[i, j] * w[i, j];
      write(e[i, j]:4);
    end;
    writeln;
  end;
  readln;
  end.

[arty444]

не меняет ничего

[arty444]

и зачем заполнять три массива, если дальше работа идёт только с третьим?
или это задание такое хитрое?

да, это задание такое
получить 3-ий массив при умножении первых 2-ух

[arty444]

а затем поменять max и min местами

[p51x]

не меняет ничего

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

[Serge_Bliznykov]

t:=e[max_row, max_col];
  e[max_row, max_col]:=e[min_row, min_col];
  e[min_row, min_col]:=t;