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

Предыдущий
вопрос Следующий
вопрос

var

rt1: array [1..10] of integer;

rt2,rt3: integer;

begin

rt3:=0;

Randomize;

for rt2 := 1 to 10 do

begin

rt1[rt2] := 1 + random(10);

writeln(rt1[rt2]);

if (rt2 >= 2) and (rt1[rt2] > rt1[rt2 - 1]) then

rt3 := rt3 + 1;

end;

writeln('количество элементов, которые больше своего соседа слева = ', rt3);

end.