Последовательный вывод индексов, (это с матрицей) Опции

[TBVlad]

Каким бы образом сделать так, чтобы на вывод шёл не только первый встреченный искомый элемент с его местоположением (ну например максимальный), но и другие равные ему, с их родными индексами?
Слегка не понимаю, как зашить это в цикл, чтобы получилось:

Код

Максимальный член - N найден в позициях:
i:j, i:j, i:j, ...

Если это уже разбиралось, киньте ссылку, plz.

Сообщение отредактировано: TBVlad - 20.01.2006 22:45

[volvo]

Вот так примерно:

const
  n = 5;
var
  arr: array[1 .. n, 1 .. n] of integer;
  buffer: array[1 .. n] of record { я предупреждал, что требует доп. память }
    x, y: integer;
  end;

var
  max, i, j: integer;
  buf_count: integer;

begin
  { заполнение матрицы Arr }

  buf_count := 0;
  max := - maxint;

  for i := 1 to n do begin
    for j := 1 to n do begin

      if arr[i, j] > max then begin
        max := arr[i, j];
        buf_count := 1;
        buffer[buf_count].x := i;
        buffer[buf_count].y := j;
      end
      else
        if arr[i, j] = max then begin
          inc(buf_count);
          buffer[buf_count].x := i;
          buffer[buf_count].y := j;
        end;

    end;
  end;

  { и распечатываешь все значения X:Y из буфера, от 1 до buf_count }
  ...

проверено на матрице:
1, 2, 3, 4, 5
1, 7, 3, 4, 5
1, 2, 3, 4, 5
1, 2, 3, 7, 5
7, 2, 3, 4, 5
Результат:

max = 7; positions are:
2:2 4:4 5:1