[TOMMY]

270(д). Даны символы S1, S2,... Известно, что символ S1 отличен
от пробела и что среди S2, S3,... имеется хотя-бы один пробел.
Рассматриваются S1,... SN - символы, предшествующие первому про-
белу (N-заранее известно). Преобразовать последовательность
S1,... SN : удалив из каждой группы цифр, которой не предшес-
твует точка, все начальные нули (кроме последнего, если за ним
идет точка ).

[OnzMill]

попонятние изложи суть

[lmikle]

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

попонятние изложи суть

Ну и чего тут непонятного. Есть дробные числа, записанные в виде строки через пробел. Надо удалить в них ведущие (незначащие) нули, кроме последнего, если он перед точкой (т.е. число < 1).

Решение. Преобразуем массив (видимо в массиве символы) в список строк (с ними удобнее работать) и далее убираем все ведушие нули.

Код:

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39

// Массив в строку сам переведешь. function ProcessNumberArray(S : String) : String; var   L : TStringList;   Buf : String;   Idx, I : Integer; begin   // "Пилим" на строки   L := TStringList.Create;   Idx := Pos(' ',S);   While Idx > 0 Do     Begin       Buf := Copy(S,1,Idx-1);       S := Copy(S,Idx+1,Length(S)-Idx+1);       If Buf <> '' Then L.Add(Buf);       Idx := Pos(' ',S);     End;   If S <> '' Then L.Add(S);     // Удаляем все лишнее   For I := 0 To L.Count-1 Do     Begin       Buf := L[i];       While (Length(Buf) > 1) And (Buf[1] = '0') And (Buf[2] <> '.') Do         Buf := Copy(Buf,2,Length(Buf)-1); // можно через delete       L[i] := Buf;     End;     // Собираем результат   Result := '';   For I := 0 To L.Count-1 Do     Begin       If Result <> '' Then Result := Result + ' ';       Result := Result + L[i];     End;     // Чистим за собой...   L.Free; end;