Решение

Когда необходимо удалять несколько элементов, то это лучше всего делать с конца массива, так как иначе нужно будет снова возвращаться к элементу, который только что удаляли (эта проблема возникает в том слу­чае, когда подряд идут два максимальных элемента: если первый удалить, то на его место снова встанет макси­мальный элемент). Просматривать массив с конца мож­но при помощи цикла с параметром, который имеет следующий вид:

For i:=В Downto A Do <тело цикла>

Значение переменной i будет уменьшаться на еди­ницу начиная от В до А.

Кроме того, номер максимального элемента запо­минать не будем, а просмотрим массив с конца, и если элемент имеет максимальное значение, то уда­лим его, при этом значение счетчика k будем увели­чивать на 1. Для решения этой задачи надо изменить функцию Maximum, сейчас нам нужен не номер, а значение максимального элемента. В программе это будет выглядеть так:

Program Example_104;

Const n=30; dd=51;

Type myarray=Array[1..n] Of Integer;

Var A: myarray;

m, k, i: Integer;

{m - значение максимального элемента

k - количество удаленных элементов}

Procedure Init2 (Var m:myarray);

{Процедура заполнения (инициализации)

массива случайными числами}

...

Procedure Print1 (n1: Integer; m: myarray);

{Процедура вывода (распечатки) массива}

...

Function Maximum (m: myarray): Integer;

Var i, max: Integer;

Begin

max:=-32768;

For i:=1 To n Do

{Просмотр всех элементов массива}

If m[i]>max Then max:=m[i];

{Новое значение максимального элемента}

Maximum:=max;

End;

Procedure Delete (k1: Integer;

Var m: myarray);

{Процедура удаления элемента с

данным номером}

...

Begin

Randomize;

{Инициализация генератора случайных чисел}

Init2 (А);

{Заполнение массива А}

Print1 (n, А);

{Вывод заполненного массива А}

{Поиск значения максимального элемента}

m:=Maximum(A); k:=0;

{Просмотр всех элементов начиная

с последнего}

For i:=n Downto 1 Do

If A[i]=m Then

{Если данный элемент имеет

максимальное значение, то}

Begin

{Удаляем элемент с номером i}

Delete(i, A);

Inc(k);

End;

Print1(n-k, A); {Вывод нового массива А}

Readln;

End.