Advertisement
Guest User

Untitled

a guest
Mar 19th, 2019
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.55 KB | None | 0 0
  1. const N=5;
  2. var a: array [1..N] of integer;
  3. i,j,k,imax,kmax: integer;
  4. begin
  5. for i:=1 to N do readln(a[i]);
  6.  
  7. kmax := 0;
  8. for i:=1 to n do
  9. begin
  10. j:=2;
  11. while(j<a[i]) do
  12. begin
  13. if(a[i] mod j = 0) then
  14. begin
  15. k:=k+1;
  16. end;
  17.  
  18. j := j + 1;
  19. end;
  20. if(k > kmax) then
  21. begin
  22. kmax := k;
  23. imax := i;
  24. end;
  25. end;
  26. writeln(imax);
  27.  
  28. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement