Untitled

Program L7_12;
{ Лабораторная работа №7, вариант№12.
 Условие задачи: Дана квадратная матрица А порядка n. Найдите среднее арифметическое положительных элементов каждого столбца матрицы. Разработал: Мурашко Сергей Васильевич, гр.03491
 Дата последней корректировки:01.11.2011}
uses crt;
var
    x:array[0..100, 0..100] of integer;
    f1:text;
    size:integer;
    i, j, max: integer;
procedure rd(z1:text; var towhat: integer);
var i,j: integer;
begin
     i:=0;
     j:=0;
     reset(z1);
     while not eof(z1) do
     begin
          j:=1;
          while not eoln(z1) do
               begin
                   read(z1,x[i,j]);
                   inc(j);
               end;
         inc(i);
         readln(z1);
     end;
     close(z1);
     towhat:=i;
end;
procedure arfmst(z1,z2,z3,z4: integer);
var arm: real; max, counter: integer;
begin
arm:=0;
max:=0;
 for j:=z1 to z3 do
    begin
    max:=0;
    counter:=0;
        for i:=z2 to z4 do
        begin
        if x[i,j]>0 then
        begin
            max:=max+x[i,j];
            inc(counter);
        end;
        end;
    if not(max=0) then
    begin
    arm:=max/counter;
    writeln(arm);
    end
    else
    writeln('0');
    end;
end;
begin
    assign(f1,'in.txt');
    rd(f1, size);
    arfmst(1,1,size,size);
end.