Cho một dãy gồm N số nguyên. Hãy viết chương trình tìm trong dãy đã cho số có nhiều ước nhất với các ước của số đó là các số thuộc dãy đã cho.
Input
10
7 2 28 5 8 4 20 10 12 15
Output
20
Cho một dãy gồm N số nguyên. Hãy viết chương trình tìm trong dãy đã cho số có nhiều ước nhất với các ước của số đó là các số thuộc dãy đã cho.
Input
10
7 2 28 5 8 4 20 10 12 15
Output
20
program uocnhieunhat;
uses crt;
var A:array[1..100] of integer;
n,i,max,ptu:integer;
function demuoc(k:integer):integer;
var l:integer;
begin
demuoc:=0;
for l:=1 to k do
if k mod l=0 then demuoc:=demuoc+1;
end;
BEGIN
clrscr;
write(‘Nhap so luong phan tu N: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘); readln(n);
end;
max:=demuoc(A[1]); ptu:=A[1];
for i:=2 to n do
if demuoc(A[i])>max then
begin
max:=demuoc(A[i]);
ptu:=A[i];
end;
write(‘Phan tu co nhieu uoc nhat la: ‘,ptu,’ voi ‘,demuoc(ptu),’ uoc’);
readln
end.
uses crt;
var n,i,vt,d,max,j:byte;
a:array[1..200] of integer;
BEGIN
clrscr;
write(‘Nhap n:’); readln(n);
for i:=1 to n do
begin
write(‘Nhap a[‘,i,’]:’);
readln(a[i]);
end;
max:=0;
for i:=1 to n do
begin
d:=0;
for j:=1 to n do
if a[i] mod a[j]=0 then inc(d);
if d>max then
begin
vt:=i;
max:=d;
end;
end;
write(‘So co nhieu uoc nhat la:’,a[vt]);
readln
END.
Xin ctlhn!