Lệ
Tổng số bài gửi : 16 Join date : 06/12/2022
| Tiêu đề: bai9d7.pascal Sat Dec 17, 2022 9:04 pm | |
| uses math; var i,j,n,m:longint; a:array [1..10000,1..10000] of longint; Procedure TongCacDong; Var i,j,S:longint; Begin For i:=1 to M do Begin S:=0; For j:=1 to N do S:=S+A[i,j]; Write(S,#32); End; End; Procedure TongCacCot; Var i,j,S:longint; Begin For i:=1 to n do Begin S:=0; For j:=1 to m do S:=S+A[j,i]; Write(S,#32); End; End; begin assign(input,'bai9d7.inp'); reset(input); assign(output,'bai9d7.out'); rewrite(output); read(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); TongCacDong; writeln; TongCacCot; close(input); close(output); end. - Code:
-
| |
|