fork download
copy 
  1. program ideone;
  2.  
  3. var
  4. a: array[1..20] of Integer;
  5. i,b : Integer;
  6.  
  7. begin
  8. 	for i := 1 to 20 do
  9. 		readln(a[i]);
  10.  
  11.  
  12. 	for i := 1 to 20 do
  13. 	begin
  14. 		for b := i + 1 to 20 do
  15. 		begin
  16. 			if a[i] = a[b] then
  17. 				a[b] := 0;
  18. 		end;
  19. 	end;
  20.  
  21.  
  22. 	for i := 1 to 20 do
  23. 		write(a[i],' ');
  24. end.
Success #stdin #stdout 0s 9136KB
comments (?)
stdin
copy 
1
7
1
6
2
1
2
7
5
2
8
2
3
5
6
4
9
4
6
2
stdout
copy 
1 7 0 6 2 0 0 0 5 0 8 0 3 0 0 4 9 0 0 0
https://ideone.com/8KraHa
language:
Pascal (gpc 20070904)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!