Uses crt; var a:array [1..100] of integer; k,n,i:integer; begin clrscr; write('Введите количество элементов массива='); readln(n); randomize; for i:=1 to n do a[i]:=random(45)-20; writeln('Исходный массив'); for i:=1 to n do write(a[i]:6); writeln; for i:=1 to n-1 do if a[i+1]>a[i] then writeln('Индексы: ',i:3); writeln; readln; end.