4.83

//Задание 4.83 Кучеренко
const m = 5;
      n = 3;

Begin

  var
    DF: array[0..4,0..2] of integer;

  writeln('Vvedite dannie v massive DF(', m, ',', n, '):');
  var i, j: integer;
  for i := 0 to m-1 do
  begin
    for j := 0 to n-2 do
      read(DF[i][j]);
    readln(DF[i][n-1]);
  end;

  var avg, sum: real;
  sum := 0;

  var count: integer;
  count := 0;

  for i := 0 to m - 1 do
  begin
    avg := 0;
    sum := 0;
    count := 0;
    for j := 0 to n - 1 do
      if DF[i][j] < 0 then
      begin
        sum := sum + DF[i][j];
        count := count + 1;
      end;
    avg := sum / count;
    writeln('I=', i+1, ', Avg=', avg);
  end;
end.