Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- day:array[1..1000] of integer;
- N,i,a,b:integer;
- BEGIN
- a:=0;
- b:=0;
- read(n);
- for i:=1 to n do
- read(day[i]);
- for i:= 1 to n do begin
- if day[i] mod 2 <>0 then
- begin
- write(day[i],' ');
- a:=a+1;
- end;
- end;
- for i:= 1 to n do begin
- if day[i] mod 2 = 0 then
- begin
- write(day[i],' ');
- b:=b+1;
- end;
- end;
- writeln();
- if b>=a then write('YES')
- else write ('NO');
- END.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement