№1
begin
5.Range.Select(t -> random(-10, 10)).Println; // диапазон целый
5.Range.Select(t -> round(random(-10.00, 10.00), 2)).Println; // диапазон вещественный
end.
Пример:
-6 -1 -7 5 -8
-9.33 -5.91 -2.68 5.83 -7.51
№2
begin
10.Range.Select((e, i)-> (e, (i + 1) * 22.4)).Foreach(t -> begin
Println($'{t[0],2:f0} шт. - {t[1]:f2} руб.') end)
end.
Результат:
1 шт. - 22.40 руб.
2 шт. - 44.80 руб.
3 шт. - 67.20 руб.
4 шт. - 89.60 руб.
5 шт. - 112.00 руб.
6 шт. - 134.40 руб.
7 шт. - 156.80 руб.
8 шт. - 179.20 руб.
9 шт. - 201.60 руб.
10 шт. - 224.00 руб.
begin
//1 вариант
Range(-3, 11).Sum.Println;
//2 вариант
Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;
//3 вариант
var Sum := 0;
foreach var x in Range(-3, 11) do
Sum += x;
Sum.Println;
//4 вариант
Sum := 0;
for var i := -3 to 11 do
Sum += i;
Sum.Println;
//5 вариант
Sum := 0;
var j := -3;
while j <= 11 do
begin
Sum += j;
j += 1
end;
Sum.Println;
//6 вариант
Sum := 0;
j := -3;
repeat
Sum += j;
j += 1;
until j > 11;
Sum.Println;
end.
