Cod sursa(job #833489)

Utilizator adrenalinaIsac Alexandrina adrenalina Data 12 decembrie 2012 17:14:44
Problema Jocul Flip Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.33 kb
Raporteaza aceasta sursa 
var a:array[1..100,1..100]of longint;
f1,f2:text;
    N,M,i,p,s,j:longint;
    begin
    readln(N,M);
assign(f1,'flip.in');
reset(f1);
readln(f1,M);
readln(f1,N);
for i:=1 to N do
for j:=1 to M do read( a[i,j]);
p:=1;
for i:=1 to N do
p:=p*a[i,j];
assign(f2,'flip.out');
rewrite(f2);
writeln(f2,s);
close (f2);
end.