Cod sursa(job #380684)

Utilizator laurentiuuCindea Laurentiu Bogdan laurentiuu Data 7 ianuarie 2010 12:53:06
Problema Bowling Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.82 kb
program problema;
uses wincrt;
var f,g:text;
    i,j,p,n,t,q:integer;
    v:array[1..100] of integer;
begin
     assign(f,'bowling.in');     reset(f);
     assign(g,'bowling.out');   rewrite(g);
     read(f,t);
     for i:=1 to t do
         begin
         read(f,n);
         for j:=1 to n do
           read (f,v[j]);
           j:=1;
           for q:=1 to n do
               begin
           if v[j]=1 then if q<>n then if v[j+1]=1 then
                                      begin
                                      j:=j+1;
                                      p:=p+1;
                                      end;
           j:=j+1;
           end;
           if p mod 2=0 then writeln(g,'fumeanu')
                        else writeln(g,'nargy');
           end;
           close(f);    close(g);
end.