Найти все индексы максимальных значений в одномерн Опции

[Павел]

Написал процедуру нахождения максимальных элементов и их индексов в
одномерном массиве.

Код

Procedure max_sled (i: integer; var maxX: real);
   var k: integer; max, x: real;
    begin
     max:=l[i];
      for i:=1 to 12 do
       begin
        if max<l[i] then max:=l[i];
       end;

      for i:=1 to 12 do
       begin
        if l[i]=max then
        begin
        x:=i;
        writeln('Index of the maximum element ',x:4:2);
        maxX:=x;
        end;
       end;
 end; {max_sled}

Вызываю процедуру.

Код

max_sled (x, maxX);

и потом у меня там идут выводы массивов

Код

if maxX=1 then
      begin
      vozr (a1, b2, c12);
      writeln ('Matrix c12');
      out_array (a1, b2, c12);
      end;

     if maxX=2 then
     begin
     vozr (a1, b3, c13);
     writeln ('Matrix c13');
     out_array (a1, b3, c13);
     end;

И так до 12 элемента. Вообще весь этот одномерный массив состоит как-бы из
сумм на главной диагонали у 12 массивов из моей курсовой, и мне надо найти
все максимальные следы матриц и вывести их на экран упорядочив по
возрастанию злементы их главных диагоналей.
Вобщем проблема - как мне запомнить все эти элементы, вот эта строка просто пишет
на экране какие эл-ты максимальные

Код

writeln('Index of the maximum element',x:4:2);

, но потом в x остается одно последнее максимальное значение на
основе которого выводится только последний упорядоченный массив, но мне то нужно их все вывести. Как это можно сделать?
Может я сумбурно объяснил, но я файлик прикрепил там все видно.

Сообщение отредактировано: Павел - 18.05.2004 15:34

[BlackShadow]

Файлик не прикрепил, объяснил сумбурно, так что если что не то - не удивляйся.
Я бы сделал так: объявил тип-функцию

Код

Type
 MyCallBack = Procedure(MaxX:Integer);

Потом бы написал такую вот процедуру:

Код

Procedure DoOut(MaxX:Integer);
Begin
 vozr (a1, b2, c12);
 writeln ('Matrix c1',MaxX+1);
 out_array (a1, b2, c12);
End;

Затем модифицировал твою max_sled, добавив ей 1 параметр типа MyCallBack:

Код

Procedure max_sled (i: integer; var maxX: real; Fn:MyCallBak);

Хотя на куда тебе тут i как параметр не догоняю.
А потом я бы вставил строку

Код

F(x);

сразу после вывода на экран.
Таким образом у тебя для каждого максимума вызывалась бы процедура вывода.