Программа

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