Массив состоит из 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]< avrg then write(a[i]: 3);

    writeln;

end.

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

13 23 45   2   9 28 47 30 18 12

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

13   2   9 18 12