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

Var b, c:integer;

a: array [1 ... 20] of integer; {объявляем массив}

begin

randomize; {говорим что будем использовать в теле программы рандомные числа}

for b:=1 to 15 do begin {жи есть цикл программы который заполняет наш массив от первой ячейки (b) до 15 ячейки }

a[b]:=random (1000) ; {присваиваем элементам массива рандомные значения}

write (a[b]) ; {выводим эти значения}

writeln (' < = = ', a[b]*2) ; {рядом выводим точно такой же массив с такими же числами, только умноженными на 2, а стрелочка для красоты }

end;

end.

надеюсь что так можно?; D