Cod sursa(job #1266229)
Utilizator | Data | 18 noiembrie 2014 15:06:26 | |
---|---|---|---|
Problema | Jocul Flip | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.36 kb |
var n,k,m,z,i,j:integer;
a:array[1..69,1..69]of longint;
{function sum(a,b:integer):integer;
var i,j:integer;
begin
for i:=1 to a do
}
begin
read(n,m);
k:=-1;
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
for i:=1 to n do begin
z:=0;
for j:=1 to n do
if a[i,j]>0 then z:=a[i,j]+z;
end;
write(z);
end.