Преобразование строки в целочисленный массив

[glazik]

Спасибо Серги

[glazik]

Теперь мне нужно создать отсортированный массив по убыванию, причем находя максимальный элемент записывать его в другой массив, а в этом массиве обнулять пока весь массив не будет из 0. + записывать в еще 1 массив индексы элементов. Подскажите, что не так:
Смысл такой: если ввели массив 3 2 4 1, то в массив соо1 должны быть 4 3 2 1, массив i1 - 3 1 2 4

  max1:= Low(num1);
  j:= Low(num1);
  for j:= Low(num1)+1 to High(num1) do
    begin
      for i:= Low(num1)+1 to High(num1) do
        if num1[i]>num1[max1] then max1:=i;
      coo1[j]:=num1[max1];
      num1[max1]:=0;
      i1[j]:=max1;
    end;

программа вылетает. http://c2n.me/i9QzRe

[Poma][a]

(Опять не приходят оповещения на почту.. печалька )
Вариант без списков..

uses StrUtils;
const
	Delims = [#0..#255]-['1'..'9', '0'];

var
	s : string;
	i : Integer;

begin
	ReadLn(s);
	for i := 1 to WordCount(s, Delims) do begin
		WriteLn(ExtractWord(i, s, Delims))
	end
end.

Я проверял на FPC.. Дельфина у меня нет..

[Serge_Bliznykov]

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

  max1:= Low(num1);
  j:= Low(num1);
  for j:= Low(num1)+1 to High(num1) do
    begin
      for i:= Low(num1)+1 to High(num1) do
        if num1[i]>num1[max1] then max1:=i;
      coo1[j]:=num1[max1];
      num1[max1]:=0;
      i1[j]:=max1;
    end;

программа вылетает. http://c2n.me/i9QzRe

надеюсь, что массивы coo1 и i1 созданы и им выделена память через процедуру SetLength() ?!


p.s. остальной ваш код не смотрел. вижу явно лишнюю строку j:= Low(num1);
она бессмыслена, т.к. тут же идёт цикл по переменной j, который переопределит значение переменной j. Но что и как - сейчас не подскажу...

[Utkin]

программа вылетает

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