Массив(Паскаль)!

[Cas01]

ПОМОГИТЕ ПЛЗ С ПРОГОЙ...СРОЧНО НУЖНО.....


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

[VIK_aka_TOR]

for i:=1 to n-1 do  //  поправка принята
if a[i]>a[i+1] then
begin
inc(z);
b[z]:=i;
end;

затем отсортируешь массив b и готово...
а массив b... ну если не нужно то да... можно и без него...

[Serge_Bliznykov]

VIK_aka_TOR, Ваше решение имеет существенную ошибку (при i=N не существует "правого соседа" , поэтому a[i+1] - это выход за границы массива => ошибка.

Это раз. и второе. Зачем найденные номера сохранять в массив B ?! Ведь такой задачи не ставилось..

и последнее. сортировать эти номера смысла нет - т.к. они ВСЕГДА будут в порядке возрастания (мы же в цикле по i идём от 1 к N - следовательно i будут в возрастающем порядке.

я бы предложил такой вариант:

for i:=1 to N-1 do
  if A[i] > A[i+1] then WriteLn(i);

и всё.

[Cas01]

А можно код целиком?Если не трудно конечно...заранее спасибо

[VIK_aka_TOR]

начинай думать сам.... иначе ничего хорошего не получиться...
такие задачки... с них все начинается... а ты уже о помощи...

[Cas01]

вот смотрите...это я сам что то делал, уверен что сильно напутал в цикле....очень прошу исправить.....

program P4;
const
  N = 6;
var
  mas: array [1..N] of integer;
  i, k: integer;
begin
  writeln('Введите элементы массива');
  for i := 1 to N do readln(mas[i]);
  k := 0;
  for i := 1 downto N do
    if mas[i] > mas[i + 1] then begin
      writeln(mas[i]);
      k := k + 1;
    end;
  writeln('Результат:', k);
end.

[malinoff]

for i := 1 downto N do

В цикл программа никогда не зайдет, если N >= 1. Зачем использовали downto?

Цикл должен быть от 1 до N-1, ведь если вы сравниваете левый элемент с правым, то при i = N mas[i+1] будет выход за рамки массива

[Oleg Osipov]

program P4;
const
N = 10;
var
mas: array [1..N] of integer;
i, k: integer;
begin
k:=0;
writeln('Vvod');
for i := 1 to N do readln(mas[i]);

writeln('Result');
writeln('Nomera elementov');
for i := 1 to N-1 do //проход от первого до предпоследнего элемента
if mas[i] > mas[i + 1] then
   begin
        writeln(i); //вывод номера элемента
        k:=k+1; //подсчет числа таких элементов
   end;
writeln('Kol-vo elementov');
writeln(k);

readln;


end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.