Cod sursa(job #640437)

Utilizator ctlin04UAIC.VlasCatalin ctlin04 Data 25 noiembrie 2011 18:53:22
Problema Dezastru Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.68 kb
Program dezastru;
 var a:array [0..27] of byte;
     b:array [0..27] of double;
     sum,s:double;
     nr:longint;
     n,k,i:byte;
     fi,fo:text;
procedure back(l:byte);
var i:byte;
begin
 if l=k then begin
               s:=1;
              for i:=1 to k do s:=s*b[a[i]];
               sum:=sum+s; inc(nr);
              end
  else for i:=a[l]+1 to n do begin
                           a[l+1]:=i;
                           back(l+1);
                           end;
end;
begin
 assign(fi,'dezastru.in');
  assign(fo,'dezastru.out');
 reset(fi); rewrite(fo);
 readln(fi,n,k);
  for i:=1 to n do read(fi,b[i]);
   back(0);
    write(fo,sum/nr:0:6);
 close(fo);
end.