Дана последовательность целых чисел. Путем удаления некоторых элементов (не переставляя элементы) получить неубывающую последовательность максимальной длины
Что я не так сделал подскажите пожалуста
Код:
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.
Админ: Пользуемся тегами для оформления кода!