Дан массив,содержащий 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
For i :=1 to N do
begin
if a[i] < 2016 then k+=1
else break;
end;
print(k);