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

var

i, j : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 15] of integer; / / объявляем массив.

arr2 : array [1 ... 15] of integer; / / объявляем массив.

Begin

for i: = 1 to 15 do / / начало цикла для заполнения первого массива.

begin

arr[i] : = random (0, 50); / / заполняем элемент массива числом из диапазона от 0 до 50.

writeln ('arr = ', arr[i]); / / вывод текущего элемента массива на экран.

end;

for j : = 1 to 15 do / / начало цикла для заполнения второго массива.

begin

arr2[j] : = arr[j] * 2; / / заполняем элемент второго массива удвоенным элементом / / из первого массива с тем же индексом.

writeln ('arr2 = ', arr2[j]); / / вывод текущего элемента массива на экран.

end;

end.