Cod sursa(job #1459618)

Utilizator Patricia26Patricia-Georgiana Patricia26 Data 10 iulie 2015 13:28:33
Problema Jocul Flip Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.6 kb
var f,g:text;
    i,j,n,m,s:integer;
    a:array[1..16,1..16] of integer;
 begin
  assign(f,'flip.in');reset(f);
  assign(g,'flip.out');rewrite(g);
   read(f,n,m);
    for i:=1 to n do
    for j:=1 to m do read(f,a[i,j]);
    for j:=1 to m do begin s:=0;
    for i:=1 to n do s:=s+a[i,j];
    if s<0 then for i:=1 to n do a[i,j]:=a[i,j]*(-1);end;
    for i:=1 to n do begin s:=0;
    for j:=1 to m do s:=s+a[i,j];
    if s<0 then for j:=1 to m do a[i,j]:=a[i,j]*(-1);end;
    s:=0;
    for i:=1 to n do
    for j:=1 to m do
    s:=s+a[i,j];
    write(g,s,' ');
   close(f);
   close(g);
 end.