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]<c[i-1] then k:=k+1; {сравнение элемента с предыдущим и счет  элементов которые меньше}
writeln;
writeln('Количество элементов=',k);
end.