Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  b
Language: PASCAL
Code:

var
   x: integer; 
  a: array[0..999] of integer;
n:array[2..100000] of integer;
   n1,n2: integer; 
k: integer; 
    i: integer; 
  ia: integer; 
begin
    for i:=0 to 10000− 1 do readln(a[i]);
  n1:=0; n2:=0;
  k := 0; ia:=0;
    for i:=10000 to 100000-1 do begin
   readln(x);
 if a[ia] mod 2 = 0 then n2 := n2 + 1;
 n1 := n1 +1;
if x mod 2 = 0 then k := k + n1
  else k := k + n2;
  a[ia] := x;
      ia := (ia+1) mod 10000;
   end;
 writeln(k);
end.
Comments: