Технический форум - Турбо Паскаль удаление элементов последовательности

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Турбо Паскаль удаление элементов последовательности

Задана последовательность А1,......А20), не содержащая одинаковых элементов.

1. Удалить элемент последовательности, наиболее близкий по
значению к максимальному в данной последовательности.
Под удалением элемента из массива понимать исключении этого
элемента путём смещения всех следующих за ним элементов влево
на 1 позицию и присвоение последнеиу элементу массива —0.

2. преобразованную последовательность, упорядочить по возрастанию.
Для отладки программы числа последовательности сформировать с помощью генератора случайных чисел

Код:

uses  Crt;

const n=20;

type  Tmass=array[1..n] of integer;

var   a:Tmass;

      i,max,mi,t,r:integer;

begin

      ClrScr;

       Writeln('Massiv A:');

        Writeln;

         Randomize;

          max:=-MaxInt;

           mi:=0;

       for i:=1 to n do

        begin

          a[i]:=Random(100);

          Write(a[i]:4);

          if a[i]>max then

           begin

             max:=a[i];

             mi:=i;

           end;

        end;

       Writeln; Writeln;

      Writeln('Max = ',max,' [ ',mi,' ]');

       Writeln;

      t:=0; r:=MaxInt;

       for i:=1 to n do

        if i<>mi then

         if (max-a[i]<r) then

          begin

            r:=max-a[i];

            t:=i;

          end;

      Writeln('Naibolee blizkiy = ',a[t],' [ ',t,' ]');

       Writeln;

      for i:=t to n-1 do

       a[i]:=a[i+1];

        a[n]:=0;

      Writeln('Noviy massiv:');

       Writeln;

        for i:=1 to n do

         Write(a[i]:4);

          Writeln;

           Writeln;

      for i:=1 to n-1 do

       for r:=1 to n-i do

        if a[r]>a[r+1] then

         begin

           t:=a[r];

           a[r]:=a[r+1];

           a[r+1]:=t;

         end;

      Writeln('Sortirovanniy massiv:');

       Writeln;

        for i:=1 to n do

         Write(a[i]:4);

          Writeln;

      ReadKey;

end.