Действительная матрица

[lexx007]

Данна действительная матрица размера m на n. Необходимо вывести матрицу на экран. Определить числа b1.....bm равные разностям наибольших и наименьших значений элементов строк. Помогите, заранее спасибо.

[MalexG]

var
  A: array [1..N, 1..M] of integer;
  B: array [1..N] of integer;
  Min, Max: integer;
  i, j: integer;

begin
  ...
  for i := 1 to N do
  begin
    Min := High(integer);
    Max := Low(integer);
    for j := 1 to M do
    begin
      if A[i,j] > Max then
        Max := A[i,j];
      if A[i,j] < Min then
        Min := A[i,j];
    end;
    B[i] := Max - Min;
  end;
  ...
end.