C 解法, 执行用时: 2ms, 内存消耗: 236KB, 提交时间: 2019-02-05

#include <stdio.h>
int main()
{
	long long sum=0; 
	int x[51], n, i, j, t, k;
	scanf("%d", &n);
	for(i=0;i<n;i++)
	{
		scanf("%d", &x[i]);
	}
	//由小到大排序
	for(i=0;i<n-1;i++)
	{
		k=i;
		for(j=i;j<n;j++)
		{
			if(x[j]<x[k])
			{
				k=j;
			}
		}
		t=x[k];
		x[k]=x[i];
		x[i]=t;
	}
	sum=x[0];
	for(i=1;i<n;i++)
	{
		
		sum=sum%1000000007*(x[i]-i)%1000000007;
	}
	


	

	printf("%d\n", sum);








	return 0;
}

Pascal 解法, 执行用时: 2ms, 内存消耗: 288KB, 提交时间: 2017-12-15

var
  a:array[0..1001]of longint;
  t,ans:int64;
  i,n:longint;
procedure sort(l,r: longint);
      var
         i,j,x,y: longint;
      begin
         i:=l;
         j:=r;
         x:=a[(l+r) div 2];
         repeat
           while a[i]<x do
            inc(i);
           while x<a[j] do
            dec(j);
           if not(i>j) then
             begin
                y:=a[i];
                a[i]:=a[j];
                a[j]:=y;
                inc(i);
                j:=j-1;
             end;
         until i>j;
         if l<j then
           sort(l,j);
         if i<r then
           sort(i,r);
      end;



begin
  ans:=1;
  read(n);
  for i:=1 to n do read(a[i]);
  sort(1,n);
  for i:=1 to n do
    begin
      t:=(a[i]-i+1);
      if t<=0 then begin
                     write(0);
                     halt;
                   end;
      ans:=(ans*t)mod 1000000007;
    end;
  write(ans);
end.