Cod sursa(job #1850812)

Utilizator victor99Victor Birna victor99 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.