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