Cod sursa(job #602824)

Utilizator Andru_Andru Felipe Zuniga Andru_ Data 13 iulie 2011 12:57:28
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
program jocul_Flip;
var
 n,m,i,j:byte;
 temp,s:longint;
 f,g:text;
begin
 assign(f,'flip.in');
 assign(g,'flip.out');
 reset(f);
 read(f,n);
 read(f,m);
 for i:=1 to n do
  for j:=1 to m do
   begin
    read(f,temp);
    if temp>=0 then
     s:=s+temp;
   end;
 close(f);
 rewrite(g);
 write(g,s);
 close(g);
end.