Question

Составьте программу, которая заполняет массив а [1..10] случайными целыми числами в диапазоне от 1 до 10, затем преобразовывает его, увеличивая все элементы с нечетными значениями в три раза, а элементы с четными значениями заменяя на 0​​​

Answer 1

{ код на Паскале }

program Prog;

var a: array[1..10] of Integer;

i: Integer;

begin

randomize;

for i := 1 to 10 do

 a[i]:=random(10)+1;

{ вывод изначального массива }

for i := 1 to 10 do

 write(a[i],' ');

writeln;

{ преобразования }

for i := 1 to 10 do

 if ( (a[i] mod 2) = 1 ) then

  a[i]*=3

 else

  a[i]:=0;

{ вывод измененного массива }

for i := 1 to 10 do

 write(a[i],' ');

end.