Program mt; Uses crt; Var a:array[1..200,1..200] of integer; f1,f2:text; m,n,i,j,s:integer; Begin assign(f1,'MT.INP'); reset(f1); assign(f2,'KQ.OUT'); rewrite(f2); readln(f1, m, n); for i:= 1 to m do for j:=1 to n do read(f1,a[i,j]); writeln(f2,m); for i:= 1 to m do begin s:=0; for j:= 1 to n do inc(s,a[i,j]); write(f2,s, ' '); end; close(f1); close(f2); End.
program tong_hang; var f,g:text; A:array[1..1000,1..1000] of integer; n,m,i,j,t:integer; begin Assign(f,'MT.INP'); reset(f); Assign(g,'KQ.OUT'); rewrite(g); readln(f,m,n); for i:=1 to m do begin for j:=1 to n do read(f,A[i,j]); readln(f); end; writeln(g,m); for i:=1 to m do begin t:=0; for j:=1 to n do t:=t+A[i,j]; write(g,t,' '); end; close(f); close(g); end.
