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

UptoLike

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

Рубрика:

112

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

массива.}

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

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

Function AverageArithmetic(Arr : ArrayInteger;

NumEl : integer) : 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; {Количество элементов

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

avA, avB, avC : real; {Среднее арифметическое в каждом

из массивов}

begin

{Вводим все три массива}

writeln;

writeln('Введите три массива:');

ReadArray(A,nA);

ReadArray(B,nB);

ReadArray(C,nC);

{Вычисляем среднее арифметическое всех массивов}

avA := AverageArithmetic(A,nA);