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

UptoLike

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

Рубрика:

1. Найти индекс максимального элемента.

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

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

Var

imax:IndexEl; {Индекс максимального элемента}

…

Begin

…

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

imax := 1; {Вначале imax указывает на первый элемент}

{В цикле начиная со 2-го элемента}

for I := 2 to n do

{Сравниваем i-й элемент с максимальным на текущий

момент времени, и если i-й элемент больше

максимального, то максимальным становится

i-ый элемент}

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

{2 – удаляем элемент массива с

индексом imax}

for I := imax to n - 1 do

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

dec(n); {Уменьшаем n на 1}

…

Замечание: в языке Тurbo Рascal имеются процедуры увеличения и

уменьшения переменной целого типа.

Inc – увеличение значения переменной.

Вид вызова для целого X

Inc(x); X := x + 1;

Inc(x, n); X := x + n;

где x – переменная целого типа,