7.40

Đề 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;