ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от [Dezzter]

Как понять, для каждого столбца матрици найти значение? Какое значение то ?

Я так понял, что номер и значение максимального элемента в столбце.

TPAXTOP, лови:

Код:

const
  n=3;
var
  i,j:integer;
  a:array[1..n, 1..n] of integer;
  max, index:integer;
begin
  for i:=1 to n do
    for j:=1 to n do
      readln (a[i,j]);
  for i:=1 to n do
    begin
     max:=0;
      for j:=1 to n do
        if a[j,i]>max then
          begin
            max:=a[j,i];
            index:=j;
          end;
      writeln ('max = ', max, 'index = ', index);
    end;
end.

Впринципе, выводит только номер max-элемента в столбце, просто я так понял. Можно организовать выдачу и номера самого столбца, и строки.