В массиве D[1..n] удвоить все четные элементы и удалить второй и девятый элементы.

Не администрация, модераторы. Мало их. Администрация - это именно администрация, управляющая структура, она не обязана (да и не может) разбираться во всех предметах.

Здесь смотря что иметь ввиду под администрацией)) Потому что модераторы, как я понимаю, тоже входят в их число.

Кстати, Вы приняли что четные элементы - это четные по значению. А вот я принял, что четные - это по порядковому номеру. Виноват, конечно, автор некорректно поставленного вопроса.

Нет, модераторы - не администрация. Это отдельная структура с подчинением администрации.

Тут еще есть спамауты, Знатоки, архивариусы - они тоже не администрация, но и не модераторы. )))

const  maxn = 100;type  myarr = array [1..maxn] of longint;var  D: myarr;  n, i: longint;begin  readln(n);  for i := 1 to n do begin    read(D[i]);    if (D[i] mod 2 = 0) then      D[i] := D[i] * 2;  end;  for i := 2 to (n - 1) do    D[i] := D[i + 1];  n := n - 1;   for i := 8 to (n - 1) do    D[i] := D[i + 1];   n := n - 1;  for i := 1 to n do    write(D[i], ' ');end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  if n<9 then n:=9; // от дурака  var d:=ArrRandom(n,-50,50);  Write('Исходный массив: '); d.Println;  var i:=1;  repeat    d[i]*=2; i+=2  until i>n-1;  Write(' После удвоения: '); d.Println;  d:=d[:1]+d[2:8]+d[9:];  Write(' После удаления: '); d.Printlnend.Примерn= 15Исходный массив: -13 -33 48 -47 -9 19 -21 45 10 -4 -30 40 -31 0 -2 После удвоения: -13 -66 48 -94 -9 38 -21 90 10 -8 -30 80 -31 0 -2 После удаления: -13 48 -94 -9 38 -21 90 -8 -30 80 -31 0 -2