Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const count = 100000;
- var queue:array[1..count] of longint;
- i,j,n,s,e,a:longint;
- procedure push(a:longint);
- begin
- inc(e); queue[e]:=a;
- end;
- procedure pop;
- begin
- inc(s);
- end;
- Begin
- read(n);
- for i:=1 to n do
- begin
- read(a); push(a);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment