Составить программу, которая в последовательности из любых N целых чисел (до 100 чисел) считает количество чисел меньших

Решение задачи:Код написан в программе PascalABC.NET.Var a: array[1..100] of integer; i, n, sum, k: integer; sa: real;begin randomize; //Подключение генератора произвольных чисел.write(\'Введите размерность n = \');readln(n);write(\'Произвольная последовательность: \');sum:=0;for i:=1 to n do begin a[i]:=random(n); //Заполнение последовательности произвольными целыми числами. write(a[i],\' \'); //Вывод через пробел заполненную последовательность на экран в строчку. sum:=sum+a[i]; //Вычисление суммы всех чисел. end;writeln;sa:=sum/n; //Нахождение среднего арифметического всех чисел.k:=0; //Счетчик.for i:=1 to n do if (a[i]<sa) then k:=k+1;writeln(\'Ответ: количество чисел меньших среднего арифметического = \',k); end.