project2.~dpr

这是一个linux中设备管理最近寻道时间编程的 是我在实习期间做的

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const x=9;
type
     aa=array[1..x] of integer;
 var
     a:aa;
     r,z,y,m,n,s,t,j,i:integer;
     p:real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
    writeln('请输入数据');
  begin
    for i:=1 to x do read(a[i]);
       for j:=1 to x-1 do
      for i:=1 to x-j do
         if a[i]>a[i+1] then
             begin t:=a[i];a[i]:=a[i+1];a[i+1]:=t;
    end;
  end;
  begin
      for i:=1 to x do
        begin
           if   a[i]<=100 then
           r:=i;
        end;
  end;
     begin
        if 100-a[r]<a[r+1]-100  then
            begin
                       begin
                            s:=100-a[r];
                            for y:=r downto 2  do
                            s:=s+(a[y]-a[y-1]);
                        end;
                        begin
                         n:=r+1;
                         s:=s+(a[n]-a[1]);
                             for z:=n to 8 do
                                   s:=s+(a[z+1]-a[z]);
                        end;
                        begin
                         p:=s/9;
                         writeln('s=',s);
                         writeln('p=',p);
                         end;
             end
          else  begin
                     begin
                            n:=r+1;
                            s:=a[n]-100;
                            for y:=n to 8  do
                            s:=s+(a[y+1]-a[y]);
                       end;
                       begin
                            s:=s+(a[9]-a[r]);
                            for z:=r downto 2 do
                                s:=s+(a[z]-a[z-1]);
                       end;
                       begin
                          p:=s/9;
                          writeln('s=',s);
                          writeln('p=',p);
                       end;
                     end;
                 readln;
              end;
end.