Дан массив с. Найти сколько элементов в массиве меньше своих левых соседей.

program a1;

const n=20;

var c:array [1 ... 100] of integer;

var i, k:integer;

begin

k:=0;

for i:=1 to n do begin

c[i]:=random (101) - 50; {заполнение массива произвольно от - 50 до 50}

write (' ', c[i]); {вывод массива на экран}

end;

for i:=2 to n do

if c[i]
writeln;

writeln ('Количество элементов=', k);

end.