одномерном массиве.
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 массивов из моей курсовой, и мне надо найти
все максимальные следы матриц и вывести их на экран упорядочив по
возрастанию злементы их главных диагоналей.
Вобщем проблема - как мне запомнить все эти элементы, вот эта строка просто пишет
на экране какие эл-ты максимальные
основе которого выводится только последний упорядоченный массив, но мне то нужно их все вывести. Как это можно сделать?
Может я сумбурно объяснил, но я файлик прикрепил там все видно.
Сообщение отредактировано: Павел -