Дан целочисленный массив A размера N. Найти номера тех элементов массива, которые больше...

Question

Дан целочисленный массив A размера N. Найти номера тех элементов массива, которые больше
своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их
возрастания.
На Паскале

Answer 1

Const sz=1000;
var
a: array [1..sz] of integer;
i,j,n,k:integer;
begin
write ('количество чисел');
read(n);
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n-1 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.
надеюсь это что вам нужно

Comments

А что за рандом? оО

---

он задает случайные числа

---

А, окей. У меня правда проблема конкретно с тем, что числа вводятся с клавиатуры и на каком-то моменте компилятор начинает гавкать, что я ввел число больше по индексу, чем длина массива)

---

тебе нужен ввод с клавы?

---

да. и длина массива - константа)

---

var
a: array [1..1000] of integer;
i,j,n,k:integer;
begin
write ('количество чисел');
read(n);
for i:=1 to n do begin
read(a[i]);
end;
for i:=1 to n-1 do
begin
if (a[i]>a[i+1] )then
writeln(i);
end;
end.