|
Реверсивная игра (100 баллов)
Решение:
var f,f1:text;
kol,kol2,i,n:longint;
a:array[1..100000]of byte;
begin
assign(f,'input.txt');
assign(f1,'output.txt');
reset(f);
rewrite(f1);
read(f,n);
for i:=1 to n do
read(f,a[i]);
a[n+1]:=1;
for i:=1 to n do
if (a[i]=0) and(a[i+1]=1) then kol:=kol+1;
a[n+1]:=0;
for i:=1 to n do
if (a[i]=1) and(a[i+1]=0) then kol2:=kol2+1;
if kol2<=kol then writeln(f1,kol2)
else writeln(f1,kol);
close(f);close(f1);
end.
|