Cod sursa(job #671534)

Utilizator NigramMargin Razvan Nigram Data 31 ianuarie 2012 17:17:32
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var f,g:text;
n,i,j,m,s:longint;
a:array[1..16,1..16]of integer;
begin
assign (f,'flip.in');reset (f);
assign (g,'flip.out');rewrite (g);
read (f,n,m);
for i:=1 to n do
for j:=1 to m do
                read (f,a[i,j]);
for i:=1 to n do
for j:=1 to m do
if a[i,j]>0 then s:=s+a[i,j];
write(g,s);
close (f);close (g);
end.