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

(это вроде как друг к другу задания относятся) Составить на языке паскаль программу обработки одномерного массива (допускается использование любых операторов цикла) найти произведение отрицательных элементов массива 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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы