Question

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

Answer 1

const n=10;

var i:integer;

a:array[1..n] of integer;

begin

for i:=1 to n do

begin

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

write(a[i]:2,' ');

if i mod 2 = 0 then a[i]:=a[i]*2

else a[i]:=a[i]*3

end;

writeln;

for i:=1 to n do write(a[i]:2,' ')

end.

Answer 2

begin

 var a := ArrRandom(10, 1, 10); a.Println;

 for var i := 0 to a.High do

   if i.isOdd then a[i] *= 2

   else a[i] *= 3;

 a.Println;

end.