fork download 
  1. program semafori;
  2. var N,i,pari, dispari : longint;
  3.     S : array[0..1000000] of int64;
  4.  
  5. function traffico (N:longint; S:array of int64): longint;
  6. var cambia: int64;
  7.  
  8. begin
  9.   pari:=0; dispari:=0;
  10.   for i:=0 to N-1 do if (S[i] mod 2 =0) then pari:=pari+1 
  11. 	                                    else dispari:=dispari+1;
  12.   if N mod 2 =0 then begin if pari>=N div 2 then cambia:= pari- (N div 2)
  13.                                             else cambia:= dispari- (N div 2); end;
  14.  
  15.  traffico:=cambia;
  16. end; 
  17.  
  18.  
  19.  
  20. begin
  21. 	readln(N);
  22. 	for i:=0 to N-1 do read(S[i]); 
  23. 	readln;
  24. 	writeln(traffico(N,S));                             
  25.  
  26. end.
Success #stdin #stdout 0.01s 7928KB
comments (?)
stdin 
8
2 4 6 8 10 12 14 16
stdout 
4
https://ideone.com/iTRc8p
language:
Pascal (fpc 3.0.4)
created:
7 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!