Дан массив, содержащий 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

{Для того, чтобы не вводить все 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.