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

UptoLike

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

Рубрика:

107

{Выводим массив A}

Arr := A;

NumEl := nA;

PrintArray;

{Выводим массив B}

Arr := B;

NumEl := nB;

PrintArray;

{Выводим массив C}

Arr := C;

NumEl := nC;

PrintArray;

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

writeln('Среднее арифметическое массивов:');

writeln('массива A = ',avA:6:2);

writeln('массива B = ',avB:6:2);

writeln('массива C = ',avC:6:2);

{Определяем наибольшее из средних арифметических}

if (avA >= avB) and (avA >= avC) then

writeln('Наибольшее среднее арифметическое в массиве A')

else if (avB >= avA) and (avB >= avC) then

writeln('Наибольшее среднее арифметическое в массиве B')

else

writeln('Наибольшее среднее арифметическое в массиве C');

end.

В этой программе используются только две глобальные переменные –

Arr и NumEl, обе они используются для передачи параметров внутрь и

изнутри двух процедур и одной функции. Наше решение, конечно, лучше,

чем использование трех вариантов процедур и функций: ReadArrayA,

ReadArrayB, ReadArrayC, … . Но в теле нашей программы смысл