fork(1) download 
  1. program usk;
  2. var
  3. i,f,chet1,chet2,nechet1,nechet2,n,fnechet,ichet,inechet:integer;
  4. a:array [1..30000] of integer;
  5. begin
  6. readln(n);
  7. chet1:=30001;
  8. chet2:=30002;
  9. nechet1:=30001;
  10. nechet2:=30002;
  11. for i:=1 to n do
  12.     begin
  13.         readln(a[i]);
  14. 		if (a[i] mod 2=0) and (a[i]<chet1) then 
  15. 			begin
  16. 				chet1:=a[i];
  17. 				ichet:=i;
  18. 			end    ;
  19. 		if (a[i] mod 2=1) and (a[i]<nechet1) then
  20. 			begin
  21. 				nechet1:=a[i];
  22. 				inechet:=i;
  23. 			end;
  24. 		if (a[i] mod 2=0) and (a[i]<chet2) and (ichet<>i) then chet2:=a[i];
  25. 		if (a[i] mod 2=1) and (a[i]<nechet2) and (inechet<>i) then nechet2:=a[i];
  26.     end;
  27. if (nechet2<30001) and ((nechet1+nechet2)<(chet1+chet2)) then writeln(nechet1+nechet2);
  28. if (chet2<30001) and ((nechet1+nechet2)>(chet1+chet2)) then writeln(chet1+chet2);
  29. end.
  30.  
Success #stdin #stdout 0.01s 312KB
comments (?)
stdin 
3
5
5
2
stdout 
10
https://ideone.com/sfxvd
language:
Pascal (fpc 3.0.4)
created:
13 years 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!