Нахождения максимального и минимального столбца, в матрице Опции

[noki]

у меня есть матрица из 3 строк и 4 столбцов, как мне найти минимальный и максимальный столбец и вывести их???

[volvo]

noki,
Ты бы поаккуратнее выражения выбирал...

Тут вот понаписали

Тебе же помогали, ты ж еще и нос воротишь... Надо было задание как положено формулировать !!!

Я давао тебе ссылку, где смотреть описание матрицы... Вот так реализуется сам поиск:

const
 size_row = 10;
 size_col = 10;

type
 trow = array[1 .. size_row] of integer;
 tmatrix = array[1 .. size_col] of trow;

procedure print(var mx: tmatrix);
 var i, j: integer;
 begin
   for i := 1 to size_row do
     begin
       for j := 1 to size_col do
         write(mx[j][i]:4);
       writeln
     end;
 end;

var
 mx: tmatrix;
 s, i, j: integer;

 s_min, i_min, s_max, i_max: integer;

begin
 for i := 1 to size_row do
   for j := 1 to size_col do
     mx[i][j] := random(100);
 writeln('before:'); print(mx);

 s_min := maxint; s_max := -maxint;
 for i := 1 to size_col do begin

   s := 0;
   for j := 1 to size_row do
     s := s + mx[i][j];

   if s < s_min then begin
     s_min := s; i_min := i;
   end;
   if s > s_max then begin
     s_max := s; i_max := i;
   end;
 end;

 writeln('min:':15, 'max':15);
 for j := 1 to size_row do
   writeln(mx[i_min][j]:15, mx[i_max][j]:15);
end.