Ma trận pascal
Viết chương trình làm một ma trận pascal
Gồm m hàng và n cột
In ra số tổng của mỗi cột và tổng của mỗi hàng
Đề thi hsg môn tin của Huyện xuân trường,tỉnh Nam định năm 2019
(Hôm nay mình mới thi nhưng không làm được bài,mình mong có đáp án để làm bài thôi,các bạn không cần vội,chỉ cần làm đúng giùm mình )
uses crt;
var a: array [1..1000,1..1000] of longint;
i,j,m,n,sum:longint;
begin
clrscr;
read(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
for j:= 1 to n do
begin
sum:= 0;
for i:= 1 to m do
sum:=sum + a[i,j];
Write(‘Tong cot: ‘,sum);
end;
for i:= 1 to m do
begin
sum:= 0;
for j := 1 to n do
sum:=sum + a[i,j];
Write(‘Tong hang: ‘,sum);
end;
readln;
end.