Cho 1 dãy số gồm n số nguyên, hãy viết ct tìm trong dãy đó số có nhiều ước nhất. help vs
Cho 1 dãy số gồm n số nguyên, hãy viết ct tìm trong dãy đó số có nhiều ước nhất. help vs
By Kylie
By Kylie
Cho 1 dãy số gồm n số nguyên, hãy viết ct tìm trong dãy đó số có nhiều ước nhất. help vs
uses crt;
var n,i,j,d,max,vt:longint; a:array[1..1000000]of longint;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
d:=0;
for j:=1 to a[i] do if a[i] mod j=0 then inc(d);
if d>max then begin max:=D; vt:=i; end;
end;
writeln(a[vt]);
readln;
end.
uses crt;
var max,n,i,maxCs: longint;
a: array[1..1000000] of longint;
function tongUoc(n: longint): longint;
var i,cs: longint;
begin
cs:=0;
for i:=1 to n do
if n mod i=0 then inc(cs);
exit(cs);
end;
Begin
readln(n);
for i:=1 to n do
readln(a[i]);
max:=0;
for i:=1 to n do
if tongUoc(a[i])> max then
begin
max:= tongUoc(a[i]);
maxCs:= a[i];
end;
write(maxCs);
readln;
End.