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

UptoLike

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

Рубрика:

Удалить элемент с найденным индексом.

Вывести массив.

Таким образом, наша программа должна будет состоять из четырех

относительно независимых кусков: 1-й кусок – ввод массива, 2-й кусок –

поиск минимального элемента, 3-й кусок – удаление элемента, 4-й кусок –

вывод массива. Сначала реализуем эту программу без использования

подпрограмм:

{Задание: ввести массив целых чисел, удалить из него минимальный

элемент, вывести получившийся массив.

Реализация программы без подпрограмм.

}

Program WithoutProcedureExample;

Const {Определение констант}

maxN = 20; {Максимально возможное количество элементов

в массиве}

Type {Определение типов}

IndexEl = 1 .. maxN; {Индексы массива лежат в интервале

от 1 до maxN}

arrInt = array[IndexEl] of integer; {Массив целых чисел,

содержащий до maxN элементов}

Var {Объявление переменных}

A : arrInt; {Массив}

N : integer; {Количество элементов в массиве}

I : IndexEl; {Переменная для сканирования массива}

IndMin : IndexEl; {Номер минимального элемента массива}

begin

{1 – ввод массива}

{1.1 – ввод количества элементов}