26 lines
647 B
ObjectPascal
26 lines
647 B
ObjectPascal
uses System;
|
|
|
|
var
|
|
str_arr: array of string;
|
|
int_arr: array of integer;
|
|
s: string := '12 765 765 76';
|
|
|
|
begin
|
|
// Ðàçáèåíèå ñòðîêè íà ìàññèâ ïîäñòðîê ñ çàäàííûì ðàçåëèòåëåì
|
|
str_arr := s.Split(' ');
|
|
|
|
// Ñîåäèíåíèå ìàññèâà ïîäñòðîê ñ íîâûì ðàçäåëèòåëåì
|
|
s := string.Join('+', str_arr);
|
|
Write(s, '=');
|
|
|
|
// Ôîðìèðîâàíèå öåëî÷èñëåííîãî ìàññèâà ïî ìàññèâó ïîäñòðîê
|
|
SetLength(int_arr, str_arr.Length);
|
|
for var i:=0 to int_arr.Length-1 do
|
|
integer.TryParse(str_arr[i], int_arr[i]);
|
|
|
|
// Âû÷èñëåíèå ñóììû ýëåìåíòîâ öåëî÷èñëåííîãî ìàññèâà
|
|
var sum := 0;
|
|
foreach v: integer in int_arr do
|
|
sum += v;
|
|
Writeln(sum);
|
|
end. |