Ввести одномерный массив Т[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