Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {Винарский}
- program z_14_29_a(input,output);
- const n=5;
- type T1=array[1..n] of 0..999;
- T2=array[1..n,1..n] of 0..999;
- function diff1(var V: T1): integer;
- var i,k: integer; C,B: set of 0..999;
- begin
- k:=0;
- C:=[];
- for i:=1 to n do
- if (not(V[i] in C)) then begin k:=k+1; C:=C+[V[i]]; end;
- diff1:=k;
- end;
- begin
- var V: T1;
- var i: integer;
- for i:=1 to n do read(V[i]);
- write(diff1(V));
- end.
Advertisement
Add Comment
Please, Sign In to add comment