Среднее
арифметическое элементов массива
Заполнить
массив из 30 элементов случайными целыми числами, лежащими в диапазоне от -100
до 300.
Вывести:
содержимое массива,
сумму элементов массива,
среднее арифметическое элементов массива,
элементы массива, большие среднего арифметического всех элементов массива.
Решение:
USES CRT;
CONST
NumQty=30;
MinN=-100;
MaxN=300;
VAR
i: integer;
Sum: integer;
Avg: real;
arr: array [1..NumQty] of integer;
BEGIN
cls;
// заполнить массив случайными числами в диапазоне от
writeln('Содержимое массива:');
for i:=1 to NumQty do
Begin
arr[i]:=Random(MaxN-MinN)+MinN;
Sum:=Sum+arr[i];
// Сразу считаем сумму элементов массива для
расчета ср.арифм.
write(arr[i], ' ');
End;
Writeln();
Avg:=Sum /
NumQty; // Вычисляем средн.арифм.
writeln('Sum=', Sum);
writeln('Среднее арифметическое=', Avg);
writeln('Значения,большие среднего арифметичского:');
for i:=1
to NumQty do
Begin
if (arr[i]>Avg) then
write(arr[i], ' ');
End;
END.
|