CLS
INPUT "введи размер массива " ; n
DIM A(n)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Задание начального значения максимума
MAX = A(1)
'Определение наибольшего значения массива
FOR i = 2 TO n
IF A(i) > MAX THEN MAX = A(i)
NEXT i
j = 1
'Удаление максимальных значений
DO
IF A(j) = MAX THEN
K = j
FOR i = K TO n-1
A(i) = A(i + 1)
NEXT i
n = n – 1
END IF
j = j + 1
IF j > n THEN EXIT DO
LOOP
FOR i = 1 TO n
'Вывод элементов массива
PRINT A(i);
NEXT i
END