【基础】质因子

题目描述

给出N个数字，试求质因数最大的数字。

输入

第一行，一个整数N，表示数字个数。接下来N行，每行一个整数A_i，表示给出的数字。

输出

一个整数，表示质因数最大的数字。

样例输入

4
36
38
40
42

样例输出

38

提示

 

N  < =  5000  ,  A_i  < =  20000 举例  38和12 38=19*2 12=2*3*3 38最大的是19 12最大的是3 所以本数据要输出38

 

来源

 

[提交][状态][讨论版] 

var
    a:array[1..20000] of longint;
    n,mx,mi,i,j,x:longint;
begin
    a[1]:=1;
    for i:=2 to 20000 do
        if a[i]=0 then
            for j:=1 to 20000 div i do a[i*j]:=i;
    readln(n);
    for i:=1 to n do
    begin
        readln(x);
        if a[x]>mx then begin mx:=a[x]; mi:=x; end;
    end;
    writeln(mi);
end.