|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Дана последовательность целых чисел
Дана последовательность целых чисел. Путем удаления некоторых элементов (не переставляя элементы) получить неубывающую последовательность максимальной длины
Что я не так сделал подскажите пожалуста Код:
program Project1; {$APPTYPE CONSOLE} uses SysUtils; var s: string; i,n,len: integer; a, b: array [0 ..100] of integer; procedure perebor (i,j,l: integer; ar: array of integer); begin if i<=n then begin perebor(i+1,j,l,ar); if (j=l) or (ar[j-l] <= a[i]) then begin ar[j] :=a[i]; perebor(i+1,j+1,l+1,ar); end; end else begin if len < 1 then begin len:=1; for i:=l to 1 do begin b[i] :=ar[i]; end; end; end;end; begin try writeln('enter N'); readln(n); writeln('enter Massiv'); for i :=1 to n do begin Read (a[i]); end; len :=0; perebor(1,1,0,b); for i :=1 to len do write (b[i],' '); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; readln; readln; end. Последний раз редактировалось Admin, 17.04.2015 в 20:59. |