Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0(Паскаль)
Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличие все элементы с нечетными значениями в 3 раза, а элементы с четными значениями заменяя на 0(Паскаль)
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program ChangeArray;
var
a: array[1..10] of integer;
i: integer;
begin
randomize;
// Заполняем массив случайными целыми числами от 1 до 10
for i := 1 to 10 do
begin
a[i] := random(10) + 1;
write(a[i], ' ');
end;
writeln;
// Преобразовываем массив
for i := 1 to 10 do
begin
if a[i] mod 2 = 0 then
a[i] := 0
else
a[i] := a[i] * 3;
end;
// Выводим преобразованный массив
for i := 1 to 10 do
write(a[i], ' ');
end.