+ Nhập xuất mảng 2 chiều.

+ Tính tổng các phần tử theo từng dòng của mảng.

+ Tìm dòng có tổng giá trị lớn nhất.

Hướng dẫn:

+ Đối với mỗi vòng lặp theo dòng, tiến hành tính tổng cho các phần tử trên dòng. Áp dụng như tính tổng cho mảng một chiều.

+ Vừa tính tổng vừa tiến hành so sánh và lưu lại giá trị lớn nhất.

Source code các hàm xây dựng

{ 1. Thu tuc tinh & in tong cac phan tu tren dong cua mang 2 chieu } Procedure TongCacDong( A : Mang2C; M,N : Integer); Var i, j: Integer; S : Real; Begin For i:=1 to M do Begin S := 0; For j :=1 to N do S := S + A[i, j]; Writeln( ‘Tong dong ‘, i ,’ la ‘, S); End; End; { 2. Thu tuc tim tong lon nhat cua cac phan tu tren dong cua mang 2 chieu } Function MaxTgDong(A:Mang2C; M,N:Integer) : Real; Var i, j, k: Integer; Value , S : Real; Begin For i:=1 to M do Begin S := 0; For j :=1 to N do S := S + A[i, j]; If (S > Value) Then Begin Value := S; K := i; End; End; MaxTgDong := Value; End; { 3. Than chuong trinh chinh } BEGIN { Nhung ham nhap xuat da de cap o Bai so 4.1, xem chi tiet o tren } Writeln( ‘Nhap mang 2 chieu:’); NhapMang2C (A, M, N ); Writeln( ‘Mang da nhap la:’); XuatMang2C (A, M, N ); Writeln( ‘Tong cac phan tu theo dong la:’ ); TongCacDong( A , M, N ); Writeln( ‘Gia tri lon nhat cua cac tong:’, MaxTgDong ( A, M, N) ); Readln; END.