Составьте программу(в паскале), которая заполнит массив a[1..16]случайными целыми числами в диапазоне от -20 до 20, выводит на экран исходный массив, затем преобразовывает его, увеличивая в 2 раза все числа,кратные 5, а остальные уменьшает на 10. Затем выводит на экран преобразованный массив.

Предыдущий
вопрос Следующий
вопрос

program ArrayTransformation;
var
a: array [1..16] of integer;
i: integer;
begin
// Заполнение массива случайными числами от -20 до 20
randomize;
for i := 1 to 16 do
a[i] := random(41) - 20;
// Вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 16 do
write(a[i], ' ');
writeln;
// Преобразование массива
for i := 1 to 16 do
begin
if (a[i] mod 5 = 0) then
a[i] := a[i] * 2
else
a[i] := a[i] - 10;
end;
// Вывод преобразованного массива
writeln('Преобразованный массив:');
for i := 1 to 16 do
write(a[i], ' ');
writeln;
end.

Программа заполняет массив a случайными целыми числами в диапазоне от -20 до 20, выводит исходный массив, преобразовывает его по заданному условию и выводит преобразованный массив.