Динамические массивы

[Nvd]

Задан одномерный массив целых чисел.
Найти наименьшее натуральное число, не представимое суммой никаких элементов массива.
Сумма может состоять и из одного слагаемого, но каждый элемент массива может входить в нее не более одного раза.(в Delphi)
Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b:array of integer;
  k,i,n,c,ch:integer;
  procedure vivod(b:array of integer);
  var c:integer;
  begin
  for c:=low(b) to high(b) do
  write(b[c]:4);
  writeln;
  end;
begin
  randomize;
  write('N= ');
  readln(n);
  setlength(a,n);
  for i:=low(a) to high(a)  do
  a[i]:=random(100);
  for i:=low(a) to high(a) do
  for k:=low(a) to high(a)do
  for ch:=a[1] to a[i] do
  begin
  if ch<>a[i] then
  begin
  c:=c+1;
  setlength(b,c);
  b[c-1]:=ch;
  end
  else write('');
  end;
  vivod(b);

  readln;


end.

[RUSt88]

ну и? что требуется от нас?

[Nvd]

[QUOTE=RUSt88;756159]ну и? что требуется от нас?[/QU
Довести этот код до ума!!!

[RUSt88]

Довести этот код до ума!!!

эмоций поменьше своими восклиц. знаками

что не работает, в чем проблема, какие ошибки, или ты думаешь, что сейчас все побегут смотреть твой код? написал утвердительное предложение с точкой и желаешь ответа на него, ответы даются на вопросы

[Nvd]

Сообщение от RUSt88

эмоций поменьше своими восклиц. знаками

что не работает, в чем проблема, какие ошибки, или ты думаешь, что сейчас все побегут смотреть твой код? написал утвердительное предложение с точкой и желаешь ответа на него, ответы даются на вопросы

Как сделать так, чтобы элементы массива при выводе не повторялись?

[Zer0]

проверять часть массива до текущего на предмет совпадений

[Nvd]

Сообщение от Zer0

проверять часть массива до текущего на предмет совпадений

напиши???!!!

[Zer0]

у меня то уже все готово, Вы оставляли пост и в разделе фриланс, я отписывался
http://programmersforum.ru/showpost....73&postcount=7
http://programmersforum.ru/showpost....74&postcount=9

[New man]

c:=c+1;

откуда c, переменные всегда надо инициализировать

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b:array of integer;
  k,i,n,c,ch:integer;
  procedure vivod(b:array of integer);
  var c:integer;
  begin
  for c:=low(b) to high(b) do
  write(b[c]:4);
  writeln;
  end;
begin
  randomize;
  write('N= ');
  readln(n);
  setlength(a,n);
  c:=0;
  for i:=low(a) to high(a)  do
  a[i]:=random(100);
  for i:=low(a) to high(a) do
  for k:=low(a) to high(a)do
  for ch:=a[1] to a[i] do
  begin
  if ch<>a[i] then
  begin
  c:=c+1;
  setlength(b,c);
  b[c-1]:=ch;
  end
  else write('');
  end;
  vivod(b);

  readln;


end.

А вообще те надо удаить все повторяющиеся значения так?