unit eternity;
interface
type mas = array [1..15, 1..15] of real;
procedure input(n, m : integer; var h : mas);
procedure vivod(n, m : integer; var h : mas);
function sum_after_first_neg_num(n, m : integer; h : mas) : real;
function avg_pos_num(c, n : integer; h : mas) : real;



implementation
procedure input(n, m : integer; var h : mas);
var i, j : integer;
begin
for i := 1 to n do
  for j := 1 to m do
    readln(h[i,j]);
end;

procedure vivod(n, m : integer; var h : mas);
var i, j : integer;
begin
for i := 1 to n do begin
  for j := 1 to m do
    write(h[i,j] : 5 : 2,' ');
  writeln;
end;
end;

function sum_after_first_neg_num(n, m : integer; h : mas) : real;
var i, j : integer;
sum : real;
is_found : boolean;
begin
is_found := false;
sum := 0;
for i := 1 to n do begin
  for j := 1 to m do begin
    if is_found then sum := sum + h[i, j]
    else if h[i, j] < 0 then is_found := true;
  end;
end;
sum_after_first_neg_num := sum;
end;

function avg_pos_num(c, n : integer; h : mas) : real;
var i, q : integer;
res : real;
done : boolean;
begin
done := false;
q := 0;
res := 0;
for i := 1 to n do begin
  if h[i, c] > 0 then begin
    res := res + h[i, c];
    q := q + 1;
    done := true;
  end;
end;
if done then avg_pos_num := res / q else avg_pos_num := 0;
end;

end.