Сформировать массив содержащий 15 случайных целых чисел, принадлежащих промежутку [0; 8] и преобразовать элементы массива по следующему правилу: к четному прибавить 1, а нечетное умножить на 2.

Program FindMin;

uses crt;

var

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

min, i:integer;

begin

for i:=1 to 15 do begin

a[i]:=random (9) ;

Write (a[i],' ') ;

end;

for i:=1 to 15 do

if a[i] mod 2 = 0 then

a[i]:=a[i]+1

else

a[i]:=a[i]*2;

Writeln;

for i:=1 to 15 do begin

Write (a[i],' ') ;

end;

end.