ДВУМЕРНЫЕ МАССИВЫ. ОБРАБОТКА С УСЛОВИЕМ Pascal ABC #5

 program ProcessArray;

var
  A: array of array of Integer;
  n, m, i, j: Integer;
  sum, negativeCount: Integer;

begin
  // Ввод размеров массива
  Write('Введите количество строк n: ');
  ReadLn(n);
  Write('Введите количество столбцов m: ');
  ReadLn(m);

  // Инициализация массива
  SetLength(A, n, m);

  // Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
    begin
      Write('A[', i, ',', j, '] = ');
      ReadLn(A[i, j]);
    end;

  // Подсчет суммы элементов массива
  sum := 0;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      sum := sum + A[i, j];

  // Если сумма больше 100, ищем количество отрицательных элементов каждой строки
  if sum > 100 then
  begin
    WriteLn('Сумма элементов массива больше 100.');
    for i := 0 to n - 1 do
    begin
      negativeCount := 0;
      for j := 0 to m - 1 do
        if A[i, j] < 0 then
          Inc(negativeCount);
      WriteLn('Количество отрицательных элементов в строке ', i + 1, ': ', negativeCount);
    end;
  end
  // Иначе увеличиваем все четные элементы массива на 1
  else
  begin
    WriteLn('Сумма элементов массива меньше или равна 100.');
    WriteLn('Увеличиваем все четные элементы массива на 1.');
    for i := 0 to n - 1 do
      for j := 0 to m - 1 do
        if A[i, j] mod 2 = 0 then
          A[i, j] := A[i, j] + 1;

    // Вывод измененного массива
    WriteLn('Измененный массив:');
    for i := 0 to n - 1 do
    begin
      for j := 0 to m - 1 do
        Write(A[i, j]:4);
      WriteLn;
    end;
  end;
end.