40 . хотя бы 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.

cd-rw - многоразовый диск. т.е. можно бесконечное кол-во раз записывать и удалять данные с него. минусы: может посадить лазерную головку в дисководе.

cd-r - одноразовый диск. если запишешь любую информацию, больше уже ничего не сможешь записать или удалить с этого диска.

  cd-rom это тип дисков, всключает в себя  cd-rw и  cd-r диски.

p.s.  если вы отметите любое решение как "лучшее", то к вам вернётся 25% потраченных пунктов на это : )

верификация модели

в которых команды выполняются последовательно!