Инвертировать часть массива с левого максимального элемента до последнего. PASCAL

Question

Инвертировать часть массива с левого максимального элемента до последнего. PASCAL

Answer 1

const

   n = 8;

 var

   A : array[1..n] of Integer;

   C : Integer;

   i,im : Byte;

 Begin

   writeln('исходный массив :'); randomize;

   im:=1;

   for i:=1 to n do begin

     a[i]:=random(20);

     if a[i]>a[im] then im:=i;

     write(a[i]:4);

   end; writeln;

   writeln('Max=',a[im],' находится на позиции =',im);

   for i:=im to im+((n-im) div 2) do begin

     c:=a[i]; a[i]:=a[n+im-i]; a[n+im-i]:=c;

   end;

   writeln('после инверсии :');

   for i:=1 to n do write(a[i]:4); writeln;

   Readln;

 End.