---

var a:array[1..10]

begin

witeln('исходный массив');

for var i:=1 to 10 do

begin

a[i]:=random(50); write(a[i],' ');

end;

writeln;

writeln('преобразованный массив');

for var i:=1 to 10 do

begin

if a[i]mod 2=0 then a[i]:=a[i]*2; write (a[i],' ');

end; end.