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

UptoLike

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

Рубрика:

Var {*** Объявление глобальных переменных ***}

Arr : ArrayInteger; {Обрабатываемый массив}

NumEl : integer; {Количество элементов в обрабатываемом

массиве}

{*** Определение процедур и функций: ***}

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

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

{Данные вводятся в массив Arr. В переменную NumEl заносится количество

элементов в массиве Arr}

procedure ReadArray;

var

i : IndexElement; {*Счетчик цикла*}

begin

writeln;

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

repeat

write('Введите количество элементов в массиве:');

readln(NumEl);

until (NumEl >= 1) and (NumEl <= maxNumEl);

{*Ввод элементов массива*}

write('Введите элементы массива : ');

for i := 1 to NumEl do

read(Arr[i]);

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

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

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

{Данные берутся из массива Arr. В переменной NumEl хранится количество

элементов в массиве Arr}

procedure PrintArray;

var