Предмет: Информатика,
автор: dashaqqq1
составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0
Ответы
Автор ответа:
0
begin
var ar := arrrandom(10, 1, 10);
ar.Println;
for var i := 0 to 9 do
if(ar[i] mod 2 = 0) then ar[i] := 0
else ar[i] := ar[i] * 3;
ar.Print;
end.
var ar := arrrandom(10, 1, 10);
ar.Println;
for var i := 0 to 9 do
if(ar[i] mod 2 = 0) then ar[i] := 0
else ar[i] := ar[i] * 3;
ar.Print;
end.
Интересные вопросы
Предмет: История,
автор: aminkasaiduldaeva
Предмет: Українська мова,
автор: Maks04tankist
Предмет: Химия,
автор: Alekseiispb
Предмет: Математика,
автор: Volginair