PASCAL. Используя двумерные массивы, составить программу.

[valentun11231]

Имеется массив A измеримостью m на n. Найти строчку с наибольшей суммой элементов. Массив, номер строки и значение суммы выводятся на экран.

Только начал изучать паскаль,и что-то трудновато,не подскажите ?

[macomics]

program Abc;

uses SysUtils; // На всякий случай, но должно работать и без этого модуля.

VAR
  A: array of array of Integer;
  i, j, k, l, n, m, s: Integer;

BEGIN
  // Тут вводите значения n и m (попробуйте написать сами)

  // ------------------
  SetLength(A, n, m);
  // Тут вы сами пишите код для ввода данных в массив (попробуйте написать сами по аналогии с выводом массива)

  // ------------------
  // Дальше ищем строку
  k := 0; // Максимальное значение суммы (будет вычислено, а пока пусть будет 0)
  l := Low(A) - 1; // Индекс строки с максимальной суммой (будет вычислено, а пока признак отсутствия значения суммы: индекс вне диапазона массива)
  for i := Low(A) to High(A) do begin
    s := 0; // Текущая сумма (будет вычислено, а пока пусть будет 0)
    for j := Low(A[i]) to High(A[i]) do inc(s, A[i, j]); // Подсчет суммы элементов строки
    if (l < Low(A)) or (k < s) then begin // Проверка: еще не зафиксирована максимальная сумма или значение максимальной суммы меньше суммы в текущей строке
      k := s;
      l := i;
    end;
  end;
  // Выводим требуемые данные: массив
  for i := Low(A) to High(A) do begin
    for j := Low(A[i]) to High(A[i]) - 1 do Write(A[i, j], " ");
    WriteLn(A[i, High(A[i])]);
  end;
  // Сумма элементов строки и индекс (нумерация с 0 для динамического массива)
  WriteLn("Summa = ", k, " v stroke c indeksom ", l);
END.