Đề bài 7.40
PROGRAM BT7_40;
USES crt;
VAR n,m,i,j,k,s : INTEGER;{m là dòng, n là cột, k là số số = i+j , i là chỉ số hàng , j là chỉ số cột, s là tổng}
    A:ARRAY[1..100,1..100] OF INTEGER;  { Khai báo mảng 2 chiều }
BEGIN
clrscr;
s:=0;  
k:=0; (*gán tổng cho 0 , số lượng số chẵn cho 0 *) 
Write('Nhap m,n : ')   ;
Readln(m,n); { nhập vào số dòng và số cột }
FOR i:= 1 TO n DO { dòng sẽ di chuyển từ dòng thứ 1 đến dòng thứ n}
 FOR j:= 1 TO m DO { cột sẽ di chuyển từ cột thứ 1 đến cột thứ m}
 BEGIN
 Writeln('Nhap A[',i,',',j,'] : '); { viết ra a[i]}
 Readln(A[i,j]); {đọc vào}
 END;
 writeln;
 writeln;{ xuống dòng cho nó đẹp mắt }
FOR i:=1 TO n DO
 FOR j:= 1 TO m DO
 IF A[i,j] MOD (i+j) =0  THEN BEGIN  k:=k+1;  s:=s+A[i,j]; END; { nếu a[i,j] chia hết cho i+j thì gán số lượng = số lượng  +1 và tổng = tổng cũ + số a[i,j]}
 Writeln('Ma tran A : '); { viết ra}
 writeln;{ xuống hàng cho đẹp }
 FOR i :=1 TO n DO { hàng sẽ di chuyển từ 1 đến n};
 BEGIN
 FOR j := 1 TO m DO {cột di chuyển từ 1 đến m}
 write(A[i,j]:5); { viết ra a[i,j] với độ rộng là 5}
 Writeln;
 writeln;
 END;
 Writeln('Tong la : ',s);
 Writeln('So luong : ',k);
 readln;