4.85

//4.85
var
  dg: array[1..5,1..3] of real;
  sum: real;
  i, j: integer;

const
  m = 5;
  n = 3;

begin
  writeln('Vvedite matricu 5x3:');

  for i := 1 to 3 do
      for j := 1 to 5 do
        read (dg[j,i]);

  for i := 1 to 5 do
  begin
      for j := 1 to 3 do
        if dg[i,j]<0 then
          sum := sum + dg[i,j];
      if sum = 0 then
        writeln(i, ' stolbec ne imeet otricatelnih elementov!')
      else
        writeln('Summa otricatelnih elementov ',i, ' stolbca: ', sum);
      sum := 0;
  end;
end.