сформировать массив содержащий 15 элементов с помощью датчика случайных чисел . получите новый массив каждый элемент которого равен удвоенному соответствующиму элементу исходного массива

const Sz = 100; // Размер массиваvar a,b: array [1..Sz] of integer; N: integer; // Количество элементов в массиве i: integer;begin N := 20; for i:=1 to N do begin a[i] := Random(100);b[i]:=a[i]*2; writeln('Элементы массива: '); for i:=1 to N do writeln(a[i],' ',b[i]);end.

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(15,-50,50); a.Println;  var b:=a.Select(t->2*t).ToArray; b.Printlnend.Пример28 -22 -43 -36 -20 -21 36 -26 48 25 -31 -29 8 -35 1756 -44 -86 -72 -40 -42 72 -52 96 50 -62 -58 16 -70 34