Cod sursa(job #286166)

Utilizator Simona14Stanescu Simona Simona14 Data 23 martie 2009 15:59:23
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var a:array[1..16,1..16] of longint;
suma,i,j,m,n:longint;
f,g:text;
begin
assign(f, 'flip.in');
assign(g, 'flip.out');
reset(f);
rewrite(g);
read(f, n,m);
for i:= 1 to n do
for j:= 1 to m do read(f, a[i,j]);
suma:=0;
for i:= 1 to n do
for j:= 1 to m do if a[i,j]>0 then suma:=suma+a[i,j];
write(g, suma);
close(g);
end.