Question

заполнить массив В [1..10] случайными целыми числами в диапазоне от 5 до 100.
1 вывести исходный массив.
2 элементы с чётными индексами удваивают, а с нечётными индексами утраивают
3 вывести получившийся массив

Answer 1

Ответ:

Program n3;  

var q,w:integer;

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

begin

for q:=1 to 10 do begin

 a[q]:=random(95)+5;

writeln(a[q]);                    

w:=a[q];          

if( w mod 2 )=0 then

a[q]:=a[q]*2  

else

  a[q]:=a[q]*3;  

     end;  

     writeln(' ');

for q:=1 to 10 do

writeln(a[q]);      

end.

Объяснение: