[lesya_ya]

Удалить из заданного числового массива наименьшее число элементов так, чтобы оставшиеся составляли возрастающую последовательность, не меняя их порядок следования.

[v1s2222]

В цикле иди с конца до 2 элемента. Если a[i] < a[i-1], значит нужно удалить все элементы массива а от 1 до i-1. Надеюсь понялА что я имею ввиду.

[lesya_ya]

я девушка!!! мне нужно удалить минимальное кол-во элементов

[v1s2222]

Вот мини пример.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

const   N=50; var   a: array of integer;   i, k, j: Integer; begin   SetLength(a, N+1);   Randomize;   for i:=1 to N do     a[i]:=random(99);     for i:=N downto 2 do begin     if(a[i] < a[i-1]) then begin       j:=1;       for k:=i to N do begin         a[j]:=a[k];         inc(j);       end;       SetLength(a, j);       Break;     end;   end;     for i:=1 to j-1 do // j-1 в нашем случае длина полученного массива     write(a[i], ' ');

[lesya_ya]

программа что-то странное выдает...
SetLength(a, N+1); - это что?

[v1s2222]

Задаем размер динамическому массиву. А числа - случайные, в диапазоне от 0 и до 98.

[lesya_ya]

на чем программа написана???

[lesya_ya]

ааааа..........очень нужно!!!!

[Страдалецъ]

А вы глазки-то подымите и прочитайте, как форум называется

[lesya_ya]

Сообщение от Страдалецъ

А вы глазки-то подымите и прочитайте, как форум называется

))))))))))))