Среднее арифметическое элементов массива

Заполнить массив из 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.