procedure TForm1.N8Click(Sender: TObject); var f:textfile; j,r,x,z,a,i,c: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; if a<>0 then sg1.Cells[r,i]:=inttostr(z div a); z:=0; a:=0; end; closefile(f); rewrite(f); s:=inttostr(sg1.colcount); writeln(f,s); s:=inttostr(sg1.RowCount); writeln(f,s); for c:=0 to sg1.ColCount-1 do for r:=0 to sg1.RowCount-1 do begin s:=sg1.Cells[c,r]; writeln (f,s); end; closefile(f); end;
