Ввести одномерный массив Т[20] с клавиатуры, вывести на экран в строку. Отдельно вывести элементы массива большее среднего арифметического. Определить их колличество

const   n = 20; var   T: array[1..n] of integer;   mean: real;   i, k: integer; begin   writeln('Введите ', n, ' элементов массива');   for i := 1 to n do   begin     read(T[i]);     mean := mean + T[i]   end;   mean := mean / n;   k := 0;   writeln(#13#10, 'Введено: ');   for i := 1 to n do write(T[i]:5);   writeln(#13#10, 'Элементы массива, превышаюшие среднее арифметическое ',       mean:0:2);   for i := 1 to n do     if T[i] > mean then     begin       write(T[i]:5);       k := k + 1     end;   writeln(#13#10, 'Найдено элементов, превышаюших среднее арифметическое: ', k) end. Тестовое решение: Введите 20 элементов массива 5 17 28 45 -20 34 9 18 42 -36 18 36 0 24 5 45 -7 12 1 21 Введено:     5   17   28   45  -20   34    9   18   42  -36   18   36    0   24    5   45   -7   12    1   21 Элементы массива, превышаюшие среднее арифметическое 14.85    17   28   45   34   18   42   18   36   24   45   21 Найдено элементов, превышаюших среднее арифметическое: 11