vinarsky_evgeny

Untitled

Nov 22nd, 2015
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.39 KB | None | 0 0
  1. {Винарский}
  2. program z_14_29_a(input,output);
  3. const n=20;
  4. type T1=array[1..n] of 0..999;
  5.      T2=array[1..n,1..n] of 0..999;
  6.  
  7. function diff1(var V: T1): integer;
  8. var i: integer; C,B: set of 0..999;
  9. begin
  10. C:=[];
  11. for i:=1 to n do
  12. if (not(V[i] in C)) then begin diff:=diff+1; C:=C+V[i]; end;  
  13. end;
  14.  
  15. begin
  16. var V: T1; i: integer;
  17. for i:=1 to n do read(V[i]);
  18. write(diff1(V));
  19. end;
Advertisement
Add Comment
Please, Sign In to add comment