Программа

Program Matrix;
{ Обработка 2-мерного массива:
  подсчет суммы и количества 
  отрицательных элементов  в 
  определенных столбцах }
Const M=4;                                                { Количество строк }
      N=5;                                             { Количество столбцов }
Type Pole=array[1..M] of real;                                 { Тип столбец }
Var A:array[1..N] of Pole;                             { Матрица из столбцов }
    i,j:word;                                    { Счетчики строк и столбцов }
    Quantity:word;              { Счетчик количества отрицательных элементов }
    Sum:real;                                { Сумма отрицательных элементов }
Procedure Resultator(ProcedurePole:Pole; var Sum:real; var Quantity:word);
  var i:word;                                                      { Счетчик }
  Begin
    Sum:=0;                        { Обнуление суммы отрицательных элементов }
    Quantity:=0;              { Обнуление количества отрицательных элементов }
    for i:=1 to M do                                { Цикл просмотра столбца }
      if ProcedurePole[i]<0 then                        { Если элемент <0, то}
        begin
          Sum:=Sum+ProcedurePole[i];   { набор суммы отрицательных элементов }
          Quantity:=Quantity+1    { набор количества отрицательных элементов }
        end
  End;
BEGIN
  for j:=1 to M do                                        { Цикл ввода строк }
    for i:=1 to N do                                   { Цикл ввода столбцов }
      Begin
        Write('Введите элемент A[',j,',',i,'] ');{ Приглашение ввода элемент }
        ReadLn(A[i,j])                                       { Ввод элемента }
      End;
  Resultator(A[3],Sum,Quantity);       { Получение результата по 3-у столбцу }
  WriteLn('Сумма отрицательных элементов третьего столбца ',Sum);
  WriteLn('Количество отрицательных элементов третьего столбца ',Quantity);
  Resultator(A[5],Sum,Quantity);       { Получение результата по 5-у столбцу }
  WriteLn('Сумма отрицательных элементов пятого столбца ',Sum);
  WriteLn('Количество отрицательных элементов пятого столбца ',Quantity);
END.