roat12.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 35 行

var v:array[1..20] of integer;
    n,i,j,max,p,aux:integer;
begin
write('n=');readln(n);
for i:=1 to n do begin
                 write('v[',i,']=');
                 readln(v[i]);
                 end;
max:=v[1];
for i:=2 to n do
   if v[i]>max then max:=v[i];
writeln('maximul este ',max);
for i:=1 to n do
   if v[i]=max then begin
                    p:=i;
                    break;
                    end;
for i:=1 to p-1 do
  for j:=i+1 to p do
      if v[i]>v[j] then begin
                        aux:=v[i];
                        v[i]:=v[j];
                        v[j]:=aux;
                        end;
for i:=p to n-1 do
  for j:=i+1 to n do
       if v[i]<v[j] then begin
                         aux:=v[i];
                         v[i]:=v[j];
                         v[j]:=aux;
                         end;
for i:=1 to n do
  write(v[i],' ');
readln;
end.