Const Fi='DAYSO.INP'; Fo='KETQUA.OUT'; Var f,g: text; A: array[1..10000] of longint; n,i,s,sl: longint; Begin Assign(f,Fi); Reset(f); Assign(g,Fo); Rewrite(g); Read(f,n); s:=0; sl:=0; For i:=1 to n do Begin Read(f,A[i]); s:=s+A[i]; If A[i] mod 2 = 0 then sl:=sl+A[i]; End;
