Question

Se dă un şir format din n numere naturale nenule. Aflaţi cel mai mic număr natural, diferit de 1, care divide un număr maxim de numere din şir.

Answer 1

var a:array of integer;
i,p,n,l,r,max:integer;

begin
read(n);
writeln;
setlength(a,n);

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

max:=a[1];
for i:=0 to n-1 do 
if a[i]>max then max:=a[i];

for l:=n downto 1 do 
for p:=2 to max do begin
r:=0;
for i:=0 to n-1 do begin
if a[i] mod p = 0 then inc(r);
if r=l then begin
writeln(p);
exit;
end;
end;
end;

end.