Question

VIẾT CHƯƠNG TRÌNH NHẬP VÀO MỘT DÃY N SÔ THỰC (N<= 250).
ĐẾM XEM TRONG DÃY CÓ BAO NHIÊU SỐ VỪA CHIA HẾT CHO 3
VỪA CHIA HẾT CHO 5.

1. KHAI BÁO CÁC BIẾN DÙNG TRONG CHƯƠNG TRÌNH:

2. ĐOẠN CHƯƠNG TRÌNH DƯỚI ĐÂY DÙNG ĐỂ NHẬP DÃY N SỐ
THỰC:

3. ĐOẠN CHƯƠNG TRÌNH DƯỚI ĐÂY DÙNG ĐỂ ĐẾM CÓ BAO NHIÊU
SỐ TRONG DÃY VỪA CHIA HẾT CHO 3 VỪA CHIA HẾT CHO 5:

4. IN KẾT QUẢ VÀ KẾT THÚC CHƯƠNG TRÌNH:

Answer 1

uses crt;

var a:array[1..250]of real;

i,n,dem:integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do

if (a[i] mod 3=0) and (a[i] mod 5=0) then inc(dem);

writeln('So phan tu chia het cho 3 va chia het cho 5 la: ',dem);

readln;

end.