Вариант 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) Увеличить в 3 раза элементы массива, индексы которых делятся без остатка на 4, а остальные элементы массива уменьшить на 3.
Вариант 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) Уменьшить на 7 элементы массива, индексы которых делятся без остатка на 3, а остальные элементы массива увеличить на 7.