Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
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                                            |

Minh Lệ
21 tháng 6 2021 lúc 21:37

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.


Các câu hỏi tương tự
Lự Đam
Xem chi tiết
phạm tú
Xem chi tiết
Huyền Trang
Xem chi tiết
Gia Bảo Lê
Xem chi tiết
Đức Vượng
Xem chi tiết
Đỗ Nguyễn Thùy Lâm
Xem chi tiết
Ngô KN
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
anh van
Xem chi tiết