Program VD;
Var a: array [1..500] of integer;
Var i, N , M: integer;
Begin
Write (' Nhap so luong phan tu cua day: ');
Readln (N);
For i:= 1 to N do
begin
Write (' Nhap so hang thu', i,' cua day');
Readln (a[i]);
end;
M:= 0;
For i:= 1 to N do
begin
If ((a[i] mod 3)=0) or ((a[i] mod 5)= 0) then M:= M+ a[i];
end;
Write (' Tong cac so chiai het cho 3 hoac cho 5 trong day la: ', M);
readln; 
end.
_Có gì không hiểu thì nhắn tin cho mình nha_