Дан массив,содержащий 2016 неотрицательных целых чисел. необходимо найти в этом массиве количество таких элементов,расположенных непосредственно перед ним. напишите на паскале программу. исходные данные объявлены так, как показано ниже. const n=2016; var a: array [1..n] of integer; i , k: integer; begin for i : =1 to n do readln (a [i] ); end