Дана программа:
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) Увеличить в 10 раз все элементы массива, кратные 2
7) Увеличить в 10 раз все четные элементы, стоящие на нечетных местах
8) Увеличить в 10 раз все элементы, большие 5 и стоящие на нечетных местах
9) Возвести в четвертую степень все элементы массива.