Вопрос от посетителя:
Дан массив с.Найти сколько элементов в массиве меньше своих левых соседей.
Илюха отвечает:
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(‘Количество элементов=’,k);
end.