14 lines
208 B
ObjectPascal
14 lines
208 B
ObjectPascal
uses Исполнители;
|
|
|
|
begin
|
|
var посл := СлучайнаяПоследовательность(10);
|
|
посл.Вывести;
|
|
|
|
посл.Сумма.Вывести;
|
|
|
|
var сумма := 0;
|
|
foreach var знач in посл do
|
|
сумма += знач;
|
|
сумма.Вывести
|
|
end.
|
|
|