Заполнить массив А из 15 целых чисел случайными элементами из диапазона

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(15, 0, 101);

 a.Println;

 var b := a.Select(t -gt; t + 10).ToArray;

 b.Println

end.

27 39 18 86 98 61 17 79 52 4 77 95 35 67 66

37 49 28 96 108 71 27 89 62 14 87 105 45 77 76

Код (Pascal)

var

 a, b: array[1..15] of integer;

 i: integer;

begin

 for i := 1 to 15 do

 begin

   a[i] := random(102);

   b[i] := a[i] + 10;

 end;

 writeln('Массив A:');

 for i := 1 to 15 do

   write(a[i], ' ');

 writeln;

 writeln('Массив B:');

 for i := 1 to 15 do

   write(b[i], ' ');

 writeln;

end.