Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var a: array of integer;
- n: integer;
- function count(a:array of integer; b:integer) :integer;
- var n:integer;
- begin
- n := 0;
- //writeln(length(a));
- for var i:=1 to length(a)-1 do if a[i]=b then n := n+1;
- count := n;
- end;
- //var a :array of integer;
- //n :integer;
- begin
- readln(n);
- setlength(a, n+1);
- for var i:= 1 to n do readln(a[i]);
- writeln();
- for var i:=1 to n do
- begin
- if count(a, a[i]) <= 3 then writeln(a[i]);
- end;
- readln();
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement