Cod sursa(job #274530)

Utilizator andreirulzzzUPB-Hulea-Ionescu-Roman andreirulzzz Data 9 martie 2009 20:27:30
Problema Jocul Flip Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
program flip;
var s,a,i,j,m,n:longint;
begin
s:=0;
assign(input,'flip.in');
reset(input);
read(input,n,m);
for i:=1 to n do
    for j:=1 to m do begin
        read(input,a);
        if a<0 then a:=a*(-1);
        s:=s+a;
        end;
close(input);
assign(output,'flip.out');
rewrite(output);
write(output,s);
close(output);
end.