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

UptoLike

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

Рубрика:

111

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

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

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

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

procedure ReadArray(Var Arr : ArrayInteger;

Var NumEl : Integer);

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(Arr:ArrayInteger; NumEl:integer);

var

i : IndexElement;

begin

for i := 1 to NumEl do

write(Arr[i]:3);

writeln;

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

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