Question

[Nhật Lệ]

Nhờ giúp em bài này với ạ:

Cho một dãy gòm n số nguyên (0<n<10^12) .Hãy viết chương trình tìm trong dãy đã cho số có nhiều ước nhất (các ước của số là các số thuộc dãy đã cho).

VD:inp                                                  |outp

  4                                                         |   20

7 10 20 11                                            |

Answer 1

[Minh Lệ]

Program HOC24;

var a: array[1..32000] of longint;

i,n,max: integer;

function uoc(x: longint): integer;

var d: integer;

begin

d:=0;

for i:=1 to x do if x mod i=0 then d:=d+1;

uoc:=d;

end;

begin

readln(n);

for i:=1 to n do read(a[i]);

max:=uoc(a[1]);

for i:=2 to n do

if uoc(a[i])>max then max:=uoc(a[i]);

write(max);

readln

end.

Answer 2

[Nhật Lệ]

em làm theo chương trình của thầy rồi mà sao nó không chạy á