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.