Vấn đề về ma trận

[pascal1]

Aj cho mình câu lệnh để tìm tổng các hàng ,các cột và vị trí của hàng, cột có tổng lớn nhất của 1 ma trận vuông A đc ko?

[HGMinh95]

Tìm tổng của một hàng
Function TongH(j:integer):integer; {j là hàng cần tính tổng}
var i,S:integer; {S là tổng}
begin
S:=0;
For i:=1 to n do S:=S+a[i,j]; {n là tổng số cột}
TongH:=S;
end;

Còn cách tìm vị trí của hàng (cột) có tổng lớn nhất thì bạn cứ tìm tổng của tất cả các hàng (cột) lưu vào một màng rồi tìm gtrị lớn nhất là được

[pascal1]

Cam on ban nhieu` nhe' ^^