Массив состоит из 20 целых чисел от 0 до 10. Найти в массиве те элементы, значение которых меньше среднего арифметического, взятого от всех элементов массива и вывести их в виде ответа. Паскаль.

Исходный код на языке программирования Pascal

const N = 10;

var

a: array[1 ... N] of integer;

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random (50) + 1;

sum : = 0;

for i:=1 to N do sum : = sum + a[i];

avrg : = sum/N;

/ / весь массив

for i:=1 to N do write (a[i]:3) ;

writeln;

writeln ('Среднее арифм.: ', avrg:4:2) ;

/ / больше avrg

for i:=1 to N do if a[i]
writeln;

end.

Пример (ы) выполнения программы на языке Pascal

13 23 45 2 9 28 47 30 18 12

Среднее арифм.: 22.70

13 2 9 18 12