Вопрос, который вызвал трудности

Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел.
Delphi 7

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые меньше своего левого соседа, и количество K таких чисел.
Delphi 7

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Консольное приложение:
const n=10; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Массив A:');

for i:=1 to n do begin
 a[i]:=random(51);
 write(a[i]:4)
 end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
 if a[i]writeln;
writeln('k = ',k);
end.

Пример:
Массив A:
  31  37  20  22  37  11  45  19   3  14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9 
k = 4