Cod sursa(job #286166)
| Utilizator |  Stanescu 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 |
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.