Question

СРОЧНО
Создать двумерный массив случайных чисел array[1..N,1..M] от 1 до 5, и найти столбец с минимальной суммой и строчку с максимальной.

Answer 1

const
  n = 5;
  m = 5;
var
  a: array[0..n, 0..m] of integer;
  i, j, imin, jmax: integer;
begin
  writeln('Матрица: ');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := Random(5) + 1;
      a[0, j] := a[0, j] + a[i, j];
      a[i, 0] := a[i, 0] + a[i, j];
      write(a[i, j] : 3);
    end;
    writeln;
  end;
  jmax := 1;
  for i := 2 to n do
    if a[i, 0] > a[jmax, 0] then
      jmax := i;
  imin := 1;
  for j := 2 to m do
    if a[0, j] < a[0, imin] then
      imin := j;
  writeln('Номер столбца: ', imin);
  writeln('Номер строки: ', jmax);
end.

Answer 2

А я решил на процедурах сделать, потому что скоро в АВС будут расширения для матриц, как есть для векторов. И срезы типа a.row(i), a.Column(j)

Answer 3

И достаточно будет писать a.Row(i).Max ))

Answer 4

А не легче ли сразу добавить что-то типо a.RowMax?

Answer 5

a.RowMax(i: integer)

Answer 6

Я как раз сейчас и занимаюсь определением того, что надо добавить. Если у разработчика конференцию почитаете, там мне предложили дать набор таких функций.