Cod sursa(job #833453)
| Utilizator |  Isac Alexandrina adrenalina |
Data | 12 decembrie 2012 16:50:36 |
|---|---|---|---|
| Problema | Jocul Flip | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.35 kb |
var a:array[1..100,1..100]of longint;
f1,f2:text;
N,M,i,s,j:longint;
begin
assign(f1,'flip.in');
reset(f1);
readln(f1,M);
readln(f1,N);
for i:=1 to N do
for j:=1 to M do a[i,j]:= random (10)*(-1);
s:=0;
for i:=1 to N do
for j:=1 to M do
s:=s+a[i,j];
assign(f2,'flip.out');
rewrite(f2);
writeln(f2,s);
close (f2);
end.
