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