Составьте программу, которая заполняет массив а[1 ... 10] случайными целыми числами в диапазоне от 1 до10 и находит количество элементов, которые больше своего соседа слева.

Сосед слева будет иметь порядковый номер, меньший на единицу, чем рассматриваемый элемент. Если номер рассматриваемого элемента равен n, то номер его соседа будет равен (n - 1).

При этом нужно учесть, что у элемента с порядковым номером 1 не буде такого соседа.

Из этого следует, что рассматривать все элементы мы должны, начиная со второго.

Создадим массив а, в котором 10 элементов:

var a: array [1 ... 10] of integer;

Заполним его числами от 0 до 50 с помощью random ():

for i:integer≔1 to 10 do

a[i] ≔ random (50);

Проверим главное условие:

for i:integer≔2 to 10 do

if (a[i] > a[I + 1]) then

col_chtvo ≔ col_chtvo + 1;