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

UptoLike

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

Рубрика:

readln(n);

until (n >= 1) and (n <= maxN);

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

for i := 1 to n do

begin

write('a[', i, ']=');

readln(a[i]);

end;

end; {Конец процедуры ReadArray}

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

{FindIndMin – процедура поиска индекса минимального элемента}

procedure FindIndMin;

begin

{Ищем индекс min элемента}

indMin := 1;

for i := 2 to n do

if A[i] < A[indMin] then IndMin := i;

end; {Конец процедуры FindIndMin}

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

{DeleteMin – процедура удаления минимального элемента}

procedure DeleteMin;

begin

{Удаляем элемент массива с индексом indMin}

for i := indMin to n-1 do

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

dec(n);

end; {Конец процедуры DeleteMin}

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

{PrintArray – процедура вывода массива на экран}

procedure PrintArray;

begin

{Выводим массив}

writeln;