Задание 2.// PascalABC.NET 3.2, сборка 1346 от 25.11.2016// Внимание! Если программа не работает, обновите её версию!begin var a:=ArrRandom(5,1,30); a.Println; var b:=ArrRandom(10,5,50); b.Println; var c:=a+b; c.Println;end.
Пример14 16 8 3 2130 32 8 36 31 34 49 38 39 2114 16 8 3 21 30 32 8 36 31 34 49 38 39 21
Задание 3.// PascalABC.NET 3.2, сборка 1346 от 25.11.2016// Внимание! Если программа не работает, обновите её версию!begin var a:=ArrRandom(20,1,99); a.Println; var d:=a.Max-a.Min; var b:=a.Select(x->real(x/d)).ToArray; b.Printlnend.
Пример56 35 4 74 70 17 70 97 58 25 34 49 46 31 66 70 63 96 95 350.602150537634409 0.376344086021505 0.043010752688172 0.795698924731183 0.752688172043011 0.182795698924731 0.752688172043011 1.04301075268817 0.623655913978495 0.268817204301075 0.365591397849462 0.526881720430108 0.494623655913979 0.333333333333333 0.709677419354839 0.752688172043011 0.67741935483871 1.03225806451613 1.02150537634409 0.376344086021505