Question

Найти произведение всех элементов массива меньших 0 массив из 8 элементов заполненных с помощью датчика случайных чисел от -3 до 8​

Answer 1

===== PascalABC.NET =====

(пример во вложении)

begin

 ArrRandom(8, -3, 8).Println.Where(p -> p < 0).Product.Println

end.

===== Та же программа на Free Pascal =====

const

 n = 8;

var

 i, p: integer;

 a: array[1..n] of integer;

begin

 randomize;

 p := 1;

 for i := 1 to n do

 begin

   a[i] := Random(12) - 3;

   write(a[i], ' ');

   if a[i] < 0 then

     p := p * a[i];

 end;

 writeln;

 writeln(p);

end.