{* Номер столбца с наибольшим количеством отрицательных элементов *}

Unit NOMERSTOLB;
Interface
Implementation
Begin
 writeln('Номер столбца массива размером МхN, в котором находится наибольшее количество отрицательных элементов. Элементы вводятся с клавиатуры.');
End.

Program nomerstolb;

Uses nomerstolb.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a    : Array[1..50, 1..50] Of integer;
  b    : Array[1..50] Of integer;
  i    : integer;
  j    : integer;
  m    : integer;
  n    : integer;
  max  : integer;
  jmax : integer;
Begin
  Write(‘сколько строк?’);
  Readln(m);
  Write(‘сколько столбцов?’);
  Readln(n);
  For i := 1 To m Do {* Переменная i увеличивается с 1 до m *}
  Begin
    For j := 1 To n Do {* Цикл для j => [1 .. n] *}
    Begin
      write(‘a[‘, i,’,’, j,’] = ’);
      readln (a[i, j]);
    End;
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
    Begin
      b[j] := 0;
      For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
        If a[i, j]max Then
        Begin
          max := b[j];
          jmax := j;
        End;
      
    End;
    writeln(‘Наибольшее количество отрицательных элементов в ‘;
    jmax;
    ‘столбце’);
  End;
  
End.