Массив состоит из 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

    а     b     c     неа   bvc   не a  ∧(b∨c)       c∧a   b∨c∧a      f     0     0     0        1       0               0                 0           0             1                           0     0     1         1       1               1                 0           0             0             0     1      0        1       1               1                 0           1             1                         0     1     1         1       1               1                 0           1             1           1     0     0         0       0               0                 0           0             1                               1     0     1         0       1               0                 1         1             1                   1     1     0         0       1               0                 0         1             1                 1     1     1         0       1               0                 1         1             1