Дана программа:
program Primer;
var A:array[1..15] of integer;
i: integer;
Begin
for i:=1 to 15 do read (A[i]);
......
writeln(‘Преобразованный массив: ‘);
for i:=1 to 15 do write (A[i]:4);
end.
Вставьте пропущенный фрагмент, который преобразует массив А[1..15], состоящий из целых чисел, следующим образом:
1) Заменить единицей все элементы массива.
2) Увеличить на 4 все элементы массива.
3) Возвести в куб все элементы массива.
4) Заменить двойкой все элементы массива.
5) Уменьшить на 2 все элементы массива.
6) Возвести в четвертую степень все элементы массива.