Submission #3216314

---

Source Code Expand

var  a:array[1..100]of  longint;
     ans,n,i,j,k,l:longint;
     x:real;
begin
  readln(n);
  for  i:=1  to  n  do
    read(a[i]);
  ans:=trunc( (a[n]-a[1])/(n-1) );
  if  ans*(n-1)=a[n]-a[1]  then
    begin
      writeln(ans);
      exit;
    end;
  x:=(a[n]-a[1])/(n-1);
  writeln(x:0:3);
end.  

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result