Question

Помогите плиз, срочно

Answer 1

Ответ:

СрочнА

Объяснение:

var count,ch,nch,N:integer;

a:array [1..4] of integer;

begin

readln (N);

count:=0;

for var i:=1 to 3 do begin

 readln(a[i]);

end;

for var j:=4 to N do begin

 readln (a[4]);

if a[1] mod 2=0 then

  ch+=1;

if a[1] mod 2<>0 then

  nch+=1;

if a[4] mod 2=0 then

  count:=ch+nch+count;

if a[4] mod 2 <> 0 then

  count:=ch+count;

for var i:=1 to 3 do begin

a[i]:=a[i+1];

end;

end;

if count=0 then begin

 writeln ('NO');

 end

else

writeln(count);

end.