fork download
copy 
  1. program ideone;
  2. Const
  3. 	N=9;
  4. Var
  5. 	A:array[1..N] of integer;
  6. 	I,K,Max:integer;
  7.  
  8. begin
  9. 	For I:=1 to N do
  10. 		Read(A[I]);
  11. 	K:=0;
  12. 	Max:=0;
  13. 	For I:=1 to N-1 do
  14. 	Begin
  15. 	If (A[I] mod 2=0) and (A[I+1] mod 2=0) then				begin
  16. 				K:=K+1;
  17. 				write(K)
  18. 				end
  19. 			Else
  20. 				K:=0;
  21. 			If K>Max then
  22. 				Max:=K
  23. 		End;		
  24. 		Write('Max=',Max)		
  25.  
  26. end.
Success #stdin #stdout 0s 4308KB
comments (?)
stdin
copy 
1 2 4 8 1 2 3 8 7
stdout
copy 
12Max=2
https://ideone.com/I6nTTi
language:
Pascal (fpc 3.0.4)
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!