Nhập vào một dãy số gồm m nguyên bất kỳ, với m là số tự nhiên nhỏ hơn 100. Yêu cầu:
Tìm trong dãy đã nhập và xuất ra màn hình số có nhiều ước nhất, với các ước là các số thuộc dãy vừa nhập.
Ví dụ: Dãy số đã nhập: 2 5 8 4 10 12 28 15 20
Số tìm được là 20
uses crt;
var
i,j,M,S: integer;
A,dem: array[1..100] of integer
begin
write(‘nhap do dai day so m:=’); readln(m);
for i:=1 to M do
begin
write(‘A[‘,i,’]:=’); readln(A[i]);
end;
for i:=1 to M do
begin
for j:=1 to A[i] do
If (A[i] mod j = 0) then dem[i]=dem[i]+1;
end;
for i:=1 to M do
If (dem[i]>dem[i+1] then S:=A[i];
writeln(‘so tim duoc ‘,S);
readln
end;