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

UptoLike

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

Рубрика:

Задание: в массив после максимального элемента

вставить элемент, равный 0}

Program InsertExample;

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

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

в массиве}

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

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

от 1 до maxN}

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

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

Var

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

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

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

Max : IndexEl; {Номер max элемента массива}

Begin

{1 – ввод массива – генерируем случайные элементы}

randomize;

n := random(6) + 5; {n в интервале 5..10}

for I := 1 to n do

A[i] := random(19) - 9; {Генерируем элементы массива.

Каждый элемент имеет значение в интервале -9..9}

{2 – ищем индекс max элемента}

max := 1;

for I := 2 to n do

if A[i] > A[max] then max := i;

{3– вставляем 0 после максимального элемента.

Сначала сдвигаем “хвост” массива вправо}

for I := n downto max + 1 do

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

{Заносим в следующий за максимальным элемент 0}

A[max+1] := 0;