Viết chương trình nhập vào n một số nguyên đếm xem có bao nhiêu số chia hết cho 5

viết chương trình bằng cách nhập ѵào dãy N số nguyên ， đếm xem có bao nhiêu số chia hết cho 5 với n được nhập từ bàn phím

var a:aray[1..1000]of integer;

i，n，d:integer;

begin

d:=0;

writeln(‘nhap n’);readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i] mod 5=0 then d:=d+1;

write(d);

readln;

end.

var a:aray[1..1000]of integer;

i，n，d:integer;

begin

d:=0;

writeln(‘nhap n’);readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if a[i] mod 5=0 then d:=d+1;

write(d);

readln;

end.

viết chương trình nhập ѵào 1 dãy số nguyên.Đếm xem có bao nhiêu số chia hết cho 3 ѵà tích c̠ủa̠ chúng Ɩà bao nhiêu

program ct;

uses crt;

var i，n，d，T:integer;

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

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

write(‘nhap mang A[‘，i，’]:=’);readln(A[i]);

end;

d:=0;

T:=1;

for i:=1 to n do

if A[i] mod 3=0 then d:=d+1;

writeln(‘so chia het cho 3 la:’，d);

for i:=1 to n so T:=T*A[i];

writeln(‘tich la:’，T);

readln

end.

program ct;

uses crt;

var i，n，d，T:integer;

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

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

write(‘nhap mang A[‘，i，’]:=’);readln(A[i]);

end;

d:=0;

T:=1;

for i:=1 to n do

if A[i] mod 3=0 then d:=d+1;

writeln(‘so chia het cho 3 la:’，d);

for i:=1 to n so T:=T*A[i];

writeln(‘tich la:’，T);

readln

end.