Cod sursa(job #602819)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 13 iulie 2011 12:38:34
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.27 kb
Raporteaza aceasta sursa 
program jocul_Flip;
var
 n,m,temp,s:integer;
 f,g:text;
begin
 assign(f,'flip.in');
 assign(g,'flip.out');
 reset(f);
 read(f,n);
 read(f,m);
 repeat
 read(f,temp);
 if temp>0 then
  s:=s+temp;
 until eof(f);
 close(f);
 rewrite(g);
 write(g,s);
 close(g);
end.