Advertisement
Guest User

Untitled

a guest
Feb 10th, 2016
47
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.41 KB | None | 0 0
  1.  
  2. const max=99999;
  3. var a:array[1..max] of integer;
  4. n,i,j,k:integer;
  5. begin
  6. randomize;
  7. readln(n);
  8. for i:=1 to n do
  9. begin
  10. a[i]:=random(10);
  11. write(a[i],' ');
  12. end;
  13. writeln;
  14. i:=1;
  15. while i<=n do
  16. begin
  17. j:=i+1;
  18. while j<=n do
  19. begin
  20. if a[j]=a[i] then
  21. begin
  22. for k:=j to n-1 do
  23. a[k]:=a[k+1];
  24. n:=n-1;
  25. end
  26. else j:=j+1;
  27. end;
  28. i:=i+1;
  29. end;
  30. for i:=1 to n do
  31. write(a[i],' ');
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement