procedure TForm1.N7Click(Sender: TObject); var f:textfile; j,r,x,z,a,i:integer; s:string; begin assignfile(f,'c:\qwerty\qwerty2.txt'); reset(f); readln(f,s); sg1.colCount:=strtoint(s); readln(f,s); sg1.rowcount:=strtoint(s); while not eof(f) do for r:=0 to sg1.ColCount-1 do for i:=0 to sg1.RowCount-1 do begin readln(f,s); sg1.Cells[r,i]:= s; end; sg1.ColCount:=sg1.ColCount+1; j:=sg1.colcount-1; sg1.Cells[j,0]:='Èòîã'; z:=0; a:=0; for i:=1 to sg1.rowCount-1 do begin for r:=2 to sg1.ColCount-2 do begin if (sg1.Cells[r,i]<>'í')and (sg1.Cells[r,i]<>' ')and(sg1.Cells[r,i]<>'') then begin x:=strtoint(sg1.cells[r,i]); z:=z+x; a:=a+1; end; end; sg1.Cells[r,i]:=inttostr(z div a); z:=0; a:=0; end; end;
