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

UptoLike

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

Рубрика:

104

переменных.}

Program ThreeArraysWithoutParameters;

Const

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

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

Type

IndexElement = 1 .. maxNumEl; {Индексы массива}

ArrayInteger = array[IndexElement] of integer; {Массив

целых чисел}

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}