【基础】质因子

题目描述

给出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.

转载于:https://www.cnblogs.com/qilinart/articles/3323628.html