Question

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

Answer 1

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.