Проверьте решение задачи: Дан массив. Получить новый массив, выбросив из исходного массива все члены со значением max(а1 ,а2 , ... , аn). Определить число элементов нового массива.

[ParkerVans]

Дан массив {ai} , i= 1,2, ..., n. Получить новый массив {bj} , выбросив из исходного массива все члены со значением max(а1 ,а2 , ... , аn). Определить число элементов нового массива .
Здравствуйте! Проверьте пожалуйста решение задачи.

Program massiv;
Var  n, i, j, Max : integer;   
A, B : array [1..100] of integer;
Begin
   write('Введите количество элементов массива  N = ');
   read(n);
   write('Введите ' , n, ' целых чисел - элементов массива  A:');
For  i := 1  to  n  do  
read(A[i]);//ввод элементов массива
j := 0;//номер очередного элемента в новом массиве
Max := A[1];// номер максимального элемента
For  i := 2  to  n  do  
If   A[i] > Max  then   
Max := A[i];
writeln('Новый массив В:');
For  i := 1  to  n  do  
If   A[i] <> Max  then begin //номер элемента массива не равен номеру максимальному элементу массива
j := j + 1; //увеличиваем номер очередного элемента в новом массиве 
B[j] := A[i];//номер последнего элемента массива b[j] будет равен количеству элементов в новом массиве
writeln(B[j], '  ')//вывод нового элемента массива    
end;
writeln('В новом массиве  ', j, '  элементов');
end.

[Вадим Мошев]

Сообщение от ParkerVans

Дан массив {ai} , i= 1,2, ..., n. Получить новый массив {bj} , выбросив из исходного массива все члены со значением max(а1 ,а2 , ... , аn).

Мне одному кажется странным такое условие? Если из массива удалить все максимумы, то он останется пустым.

[p51x]

Почему пустым? Если не все элементы одинаковы, то выкинется только несколько равных максимуму.

[Вадим Мошев]

Понял. Я рассуждал так:
1. Если массив непустой, то Найти максимум в массиве, иначе выход
2. Удалить этот элемент
3. Перейти к пункту 1.

Очевидно, что при выполнении такого алгоритма исходный массив опустошится.

[Serge_Bliznykov]

1. Если массив непустой, то Найти максимум в массиве, иначе выход
2. Удалить все элементы массива, равные максимуму
3. уменьшить размер массива на количество удалённых элементов
4. выдать новый массив.
5. конец

но, формально говоря, если в задаче нужно только

Сообщение от ParkerVans

Определить число элементов нового массива

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

[ParkerVans]

Всем Спасибо!