vinarsky_evgeny

Untitled

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