Тама массивы 2 которое выделено

var a,b:array[1..10] of integer;

 i:integer;

begin

 for i:=1 to 10 do

 begin

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

   b[i]:=random(90)+10;

 end;

 for i:=1 to 10 do

 write(a[i],' ');

 writeln;

 for i:=1 to 10 do

 write(b[i],' ');

 writeln;

 for i:=1 to 10 do

 begin

   b[1]:=b[i]*2;

   write(b[i],' ');

 end;

end.