Cod sursa(job #833406)
| Utilizator |  Cristea Petru pcristea |
Data | 12 decembrie 2012 16:01:59 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
var f1, f2:text;
a:array[1..100, 1..100] of integer;
s,i,j,n,m:integer;
begin
assign(f1, 'input.txt');
reset(f1);
readln(f1, n,m);
writeln;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<0 then a[i,j]:=a[i,j]*(-1);
end;s:=s+a[i,j];
assign(f2, 'output.txt');
rewrite(f2);
writeln(f2, s);
close(f2);
end.