(это вроде как друг к другу задания относятся) Составить ** языке паскаль программу...

Question

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

Comments

от 1 до 11. без циклов нельзя. циклы можно FOR и REPEAT

Answer 1

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<br>    begin
      if D[i] < 0 then P:=P*D[i];
      i+=2;
    end;
  write(P);
end.

Comments

Вариант если отрицательных нет не рассматривается))

---

И блок схемы тоже нет)

---

его ж никто не отмечал как неверный

---

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

---

архиваторы ведь тоже занимаются наиболее популярными вопросами