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

UptoLike

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

Рубрика:

2-я подпрограмма – поиск минимального элемента, 3-я подпрограмма –

удаление элемента, 4-я подпрограмма – вывод массива. Сделаем это,

причем будем использовать в программе простейшие процедуры – так

называемые процедуры без параметров.

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

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

Реализация с использованием процедур без параметров.

}

Program SimpleProcedureExample;

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

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

в массиве}

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

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

от 1 до maxN}

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

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

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

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

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

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

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

{Определение процедур}

{==========================================}

{ReadArray - процедура ввода массива с клавиатуры}

procedure ReadArray;

begin

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

repeat

write('Введите n:');