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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

106
avA, avB, avC : real; {Среднее арифметическое в каждом
из массивов}
begin
{Вводим все три массива}
writeln;
writeln;
writeln('Введите три массива:');
{Вводим массив A}
ReadArray;
A := Arr;
nA := NumEl;
{Вводим массив B}
ReadArray;
B := Arr;
nB := NumEl;
{Вводим массив C}
ReadArray;
C := Arr;
nC := NumEl;
{Вычисляем среднее арифметическое всех массивов}
{Массив A}
Arr := A;
NumEl := nA;
AvA := AverageArithmetic;
{Массив B}
Arr := B;
NumEl := nB;
AvB := AverageArithmetic;
{Массив C}
Arr := C;
NumEl := nC;
AvC := AverageArithmetic;
{Для контроля выводим все массивы}
writeln('Вы ввели следующие массивы:');

Страницы