3. Дан вектор А[20]. Поделить каждую компоненту вектора на разностьмежду MAX

Задание 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 21
30 32 8 36 31 34 49 38 39 21
14 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-gt;real(x/d)).ToArray; b.Println
end.

Пример
56 35 4 74 70 17 70 97 58 25 34 49 46 31 66 70 63 96 95 35
0.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