Основы программирования на языке Turbo Pascal. Беляева И.В. - 25 стр.

UptoLike

Составители:

Рубрика:

…

Begin

…

{1} k:=0;

{2} for I := 1 to n do

{3} if A[i] = 10

{4} then k := k+1;

…

Удаление элемента из массива

Задача 9: Удалить из массива первый элемент.

Удаление элемента заключается в:

1. Сдвиге элементов, стоящих правее удаляемого, влево.

2. Уменьшении количества элементов массива n на количество

удаляемых элементов.

Сдвиг элементов выполняется так:

1. Начиная с удаляемого элемента, копируем содержимое элемента,

стоящего правее, в текущий элемент: A[i]:=A[i+1].

2. Переходим к следующему элементу вправо: i:=i+1.

3. Заканчиваем сдвиг, когда i=n-1, так как i+1 при i=n-1 равен n.

Фрагмент программы:

…

{1 – сдвигаем элементы на одну позицию вправо}

{Вначале i:=1, потому что надо удалить 1-й элемент}

for I := 1 to n - 1 do

A[i] := A[i+1];

{2 – уменьшаем количество элементов в массиве}

n := n-1;

…

Задача 10: Удалить из массива максимальный элемент массива.

Для этого надо: