Константин
6 год назад
(это вроде как друг к другу задания относятся)
Составить на языке паскаль программу обработки одномерного массива (допускается использование любых операторов цикла)
найти произведение отрицательных элементов массива D(11),стоящих на нечетных местах
(блок схему алгоритмов тоже нужно привести)
ОТВЕТЫ
Исаакович
Jul 2, 2019
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 lt;= 11 do
begin
if D[i] lt; 0 then P:=P*D[i];
i+=2;
end;
write(P);
end.
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 lt;= 11 do
begin
if D[i] lt; 0 then P:=P*D[i];
i+=2;
end;
write(P);
end.
39
Смежные вопросы:
