
Фавстин
7 год назад
Подсчитайте произведение отрицательных элементов массива, заполненного заранее известными значениями -24, 53, 76, -2, -43
ОТВЕТЫ

Kamabas
Jul 19, 2019
var a:array[1..5] of integer=(-24,53,76,-2,-43);
i,p:integer;
begin
p:=1;
for i:=1 to 5 do
if a[i]lt;0 then p:=p*a[i];
writeln(p = ,p);
end.
Результат:
p = -2064
i,p:integer;
begin
p:=1;
for i:=1 to 5 do
if a[i]lt;0 then p:=p*a[i];
writeln(p = ,p);
end.
Результат:
p = -2064
176
Смежные вопросы: