Advertisement
Dennnhhhickk

Untitled

Nov 23rd, 2016
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.91 KB | None | 0 0
  1. program Project2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. const
  9. MAXIN = 1000010;
  10.  
  11. var
  12. n, i, j: integer;
  13. x, k, a, max, ans, time: int64;
  14. b, prost1: array [1..MAXIN] of integer;
  15.  
  16. function prost(n: integer): boolean;
  17. var
  18. i, k: integer;
  19. begin
  20. prost := true;
  21. k := 0;
  22. for i := 2 to trunc(sqrt(n)) do
  23. if (n mod i = 0) then
  24. prost := false;
  25. end;
  26.  
  27. function prost2(a: integer): integer;
  28. var
  29. p, i: integer;
  30. begin
  31. p := 0;
  32. for i := 1 to k do
  33. if (a mod prost1[i] = 0) then
  34. inc(p);
  35. prost2 := p;
  36. end;
  37.  
  38. begin
  39. k := 0;
  40.  
  41. for i := 2 to 1024 do
  42. if (prost(i)) then
  43. begin
  44. inc(k);
  45. prost1[k] := i;
  46. end;
  47.  
  48. readln(n);
  49. max := 0;
  50.  
  51. for i := 1 to n do
  52. begin
  53. read(a);
  54. time := prost2(a);
  55. if (time > max) then
  56. begin
  57. max := time;
  58. ans := a;
  59. end;
  60. end;
  61.  
  62. writeln(ans);
  63. readln;
  64. readln;
  65. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement