Ответ(ы) на вопрос:
Гостьconst n=6;
var a:array[1..n] of integer;
i,p:integer;
begin
writeln('Введите 6 элементов массива:');
for i:=1 to n do read(a[i]);
p:=1;
for i:=1 to n do
if a[i]<0 then p:=p*a[i];
writeln('p = ',p);
end.
Пример:
Введите 6 элементов массива:
5 -8 3 -4 7 -1
p = -32
Гость// PascalABC.NET 3.2, сборка 1363 от 17.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrReal('Вводите массив:',6);
Writeln('П=',a.Where(x->x<0).Aggregate(1.0,(x,y)->x*y))
end.
Пример
Вводите массив: 5 -8 3 -4.5 7 -1.15
П=-41.4
Не нашли ответ?
Похожие вопросы