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

UptoLike

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

Рубрика:

105

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

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

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

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

procedure PrintArray;

var

I : IndexElement;

begin

for i := 1 to NumEl do

write(Arr[i]:3);

writeln;

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

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

{AverageArithmetic – функция, вычисляющая среднее арифметическое элементов

массива.}

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

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

Function AverageArithmetic : real;

var

i : IndexElement;

Sum : LongInt; {Сумма элементов}

begin

Sum := 0;

for i := 1 to NumEl do

Sum := Sum + Arr[i];

AverageArithmetic := Sum / NumEl;

end; {Конец функции AverageArithmetic}

Var {Это локальные переменные – они НИ В ОДНОЙ подпрограмме

напрямую не используются}

A, B, C : ArrayInteger; {Обрабатываемые массивы}

nA, nB, nC : integer; {Количество элементов

в обрабатываемых массивах}