Cod sursa(job #1850812)
Utilizator | Data | 18 ianuarie 2017 22:24:09 | |
---|---|---|---|
Problema | Jocul Flip | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.38 kb |
var n,m:word;
fi,fo:text;
a:array[1..10000,1..16] of integer;
s,i,j:integer;
begin
assign(fi,'flip.in');
assign(fo,'flip.out');
reset(fi);
rewrite(fo);
read(fi,n); write(fi,' ');
readln(fi,m);
for i:= 1 to n do for j:=1 to m do
readln(fi,a[i,j]);
for i:=1 to n do for j:= 1 to m do
s:=s+abs(a[i,j]);
writeln(fo,s);
close(fi);
close(fo);
end.