Дан массив,содержащий 2016 неотрицательных целых чисел. Необходимо найти в этом массиве количество таких элементов,расположенных

{Для того, чтобы не вводить все 2016 чисел вручную,readLn (a [i] ) был заменён на a[i]:=random(10000).Таким образом массив заполнится случайными числамиот 0 до 10000.}

Const N=2016; var a: array [1..N] of integer; i, k:integer;Begin//заполняем массив случайными числамиFor i:=1 to N do a[i]:=random(10000);//выводим исходный массивwriteln (\'Исходный массив\');For i:=1 to N do write(a[i], \' \'); k:=0; //сумма всех элементов меньших 2016//проходим циклом по всему массивуFor i:=1 to N do begin If a[i]<2016 then k:=k+1; //если элемент меньше 2016, значит увеличиваем сумму на 1 end;//выводим суммуWriteln (\'Количество элементов, стоящих перед 2016: \', k);End.