Программа. INPUT введи размер массива ; n

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

Задачи для дополнительного решения

Задача 1. Дан массив чисел. Удалить все элементы между элементами по номерами m1 и m2.

Задача 2. В последовательности из 10 чисел удалить первый и второй нулевой элемент.

Задача 3^*. Дан массив чисел. Удалить все элементы между первым четным и вторым четным элементом.

Задача 4. В массиве из n чисел удалить все отрицательные элементы.

Задача 5. В массиве из n чисел удалить все элементы, принадлежавшие интервалу [1,3].

Вставка элемента в заданную позицию

Алгоритм решения

Допустим, что необходимо включить число В в массив в К позицию. Для этого необходимо передвинуть все элементы, начиная с К позиции, вправо на одну позицию. Сдвиг должен производиться с конца, в противном случае все элементы с К+1 позиции будут замещены элементом А(К). Затем в К позицию записывается число В.

Дата добавления: 2015-07-11