Developing.ru

Код: Выделить всё

var a:array[1..100,1..100] of real;
    i,j,n,m:longint;
    s:array[1..100] of real;

procedure input;
    begin
          readln(n,m);
          for i:=1 to n do
             for j:=1 to m do
                read(a[i,j]);
    end;

procedure done;
    var k:longint;
    begin
        for i:=1 to m do
            begin
                s[i]:=0;
                k:=0;
                for j:=1 to n do
                    if a[j,i]>0
                        then
                            begin
                                inc(k);
                                s[i]:=s[i]+a[j,i];
                            end;
                if (k<>0)
                    then s[i]:=s[i]/k;
            end;
    end;

procedure output;
    begin
        writeln;
        for i:=1 to n do
            writeln(s[i]:0:3);
    end;

begin
    input;
    done;
    output;
end.