Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе, которые...

Question

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

Answer 1

Консольное приложение:
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