PROGRAM CT67;
USES crt;
VAR i: BYTE;
Tong, k, n: INTEGER;
A: ARRAY[1..99] OF INTEGER;
BEGIN
clrscr;
Randomize;
n:=101;
WHILE n>=100 DO
BEGIN
Write('Nhap so phan tu cua day : '); Readln(n);
END;
FOR i:=1 TO n DO A[i]:=Random(301)-Random(301);
k:=-1;
WHILE k<=0 DO BEGIN
Write('Nhap so nguyen duong k: '); Readln(k); END;
Tong:=0;
FOR i:=1 TO n DO
IF A[i] MOD k = 0 THEN Tong:=Tong+A[i];
Writeln('Tong cua nhung boi so cua ',k,' thuoc day so la: ',Tong);
Readln
END.
Download: http://www.mediafire.com/?fcalmyndq4605tn
USES crt;
VAR i: BYTE;
Tong, k, n: INTEGER;
A: ARRAY[1..99] OF INTEGER;
BEGIN
clrscr;
Randomize;
n:=101;
WHILE n>=100 DO
BEGIN
Write('Nhap so phan tu cua day : '); Readln(n);
END;
FOR i:=1 TO n DO A[i]:=Random(301)-Random(301);
k:=-1;
WHILE k<=0 DO BEGIN
Write('Nhap so nguyen duong k: '); Readln(k); END;
Tong:=0;
FOR i:=1 TO n DO
IF A[i] MOD k = 0 THEN Tong:=Tong+A[i];
Writeln('Tong cua nhung boi so cua ',k,' thuoc day so la: ',Tong);
Readln
END.
Download: http://www.mediafire.com/?fcalmyndq4605tn