BÀI 6: Viết chương trình nhập vào một mảng gồm n số nguyên (1 <= n <= 100), mỗi số có giá trị tuyệt đối không quá 500. Tính tổng giá trị các phần tử có giá trị chia hết cho k (k nhập từ bàn phím)

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

I,n,k : byte;

S:real;

Begin

Clrscr ;

S:=0;

Write('nhao so phan tu trong day'); readln(n);

Write('nhap so k'); readln(k);

For i:=1 do n do 

Repeat 

Begin

Write('A[',i,']'); readln(A[i]); 

Until abs(A[i]) =<500; 

End;

For i:=1 to n do

If A[i] mod k = 0 then 

S:=S+ A[i] ; 

Writeln('Tong cac phan tu trong mang chia het cho ',k,' la',S); 

Readln

End.

Program bt;

Uses crt;

Var A:array[1..1000] of integer;

i,n,k : integer;

S:real;

Begin

Clrscr ;

readln(n,k);

For i:=1 do n do read(A[i]);

For i:=1 to n do

If A[i] mod k = 0 then 

S:=S+ A[i] ; 

Writeln('Tong  phan tu chia het cho ',k,'  la ',S);

Readln;

End.