|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
попробуй как-то так:
Код:
procedure CreateSums(A : Array Of Integer); var I, J : Integer; H, S : String; begin Memo1.Lines.Clear; For I := Low(A) To High(A)-1 Do Begin H :=''; For J := Low(A) To I Do H := H + IntToStr(A[J]) + '+'; For J := I+1 To High(A) Do Begin S := H + IntToStr(A[J]); Memo1.Lines.Add(S); End; End; end; |