cформировать одномерный массив из 15 элементов с помощью случайных чисел,…

var A: array[1… 15] of integer; i: integer; begin randomize; for i: =1 to 15 do writeln ('Исходныйы массив: '); begin A[i]: =random (21) — 10; write (A[i], '); A[i]: =A[i]*A[i]*A[i]; end; writeln; writeln; writeln ('Нечетные элементы преобразованного массива') i: =1; while i <= 15 do begin write (A[i], '); i: =i+2; end; readln; end.