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

[Павел]

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

Код

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

[Павел]

С упорядочением я разобрался, сделал вот так:

Код

Procedure vozr (a, b: integer; var c:massiv);
   var  i, j: integer;
        k: real;
        sort: boolean;
   begin
   if a > b then begin
     Repeat
        sort := false;
        for i:=1 to b-1 do
        if c[i,i] > c[i+1,i+1] then
        begin
         k:=c[i,i];
         c[i,i]:=c[i+1,i+1];
         c[i+1,i+1]:=k;
         sort:= true;
        end;
     Until sort = false;
    end
   else begin
              Repeat
               sort := false;
               for i:=1 to a-1 do
               if c[i,i] > c[i+1,i+1] then
               begin
                k:=c[i,i];
                c[i,i]:=c[i+1,i+1];
                c[i+1,i+1]:=k;
                sort:= true;
               end;
              Until sort = false;
        end;
 end;  {vozr}