fork(1) download 
  1. program q210818910;
  2. var
  3. 	a: array[1..100] of integer;
  4. 	n, i, sum: integer;
  5. begin
  6. 	read(n);
  7. 	for i := 1 to n do
  8. 		read(a[i]);
  9.  
  10. 	sum := 0;
  11. 	for i := 1 to n do
  12. 		sum := sum + a[i];
  13.  
  14. 	if sum mod 2 = 0 then 
  15. 		writeln('Четное')
  16. 	else
  17. 		writeln('Нечетное');
  18. end.
Success #stdin #stdout 0s 9128KB
comments (?)
stdin 
10
1 2 3 4 5 6 7 8 9 0
stdout 
Нечетное
https://ideone.com/DrpW8N
https://o...content-available-to-author-only...l.ru/question/210818910
language:
Pascal (gpc 20070904)
created:
6 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!