16.11.2018, 20:39
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,048
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
попробуй как-то так:
Код:
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;
|