(это вроде как друг к другу задания относятся)
Составить на языке паскаль программу обработки одномерного массива (допускается использование любых операторов цикла)
найти произведение отрицательных элементов массива D(11),стоящих на нечетных местах
(блок схему алгоритмов тоже нужно привести)

Т.е. по-Вашему модераторы не имеют достаточных знаний, чтобы определить, верный ответ или нет? )))

нет. Скорее не имеют достаточно времени и желания чтоб проверить каждый ответ который пишут на сайте

Ну так и я о том же самом - "руки не дошли".

var  i: integer;  D: array[1..11] of real;  P: real;begin  for i:=1 to 11 do    begin      write(i,' элемент массива: ');      read(D[i]);    end;  i:=1;  P:=1;  while i <= 11 do    begin      if D[i] < 0 then P:=P*D[i];      i+=2;    end;  write(P);end.