Cod sursa(job #683369)
| Utilizator |  Bejan Dan Bejan_Dan |
Data | 20 februarie 2012 16:03:01 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.31 kb |
var
v:array[1..500,1..500] of longint;
a,b,s,i,j:longint;
f1,f2:text;
begin
assign(f1,'flip.in');
assign(f2,'flip.out');
reset(f1);
rewrite(f2);
readln(f1,a,b);
s:=0;
for i:=1 to a do
for j:=1 to b do begin
read(f1,v[i,j]);
if v[i,j]>0 then s:=s+v[i,j];
end;
writeln(f2,s);
close(f1);
close(f2);
end.
