Question

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа m. на языке паскаль

Answer 1

var

i:integer;

proizv,o:real;

m,n:real;

begin

proizv:=1;

i:=0;

read(m);

read(n);

while(i<n) do

begin

read(o);

if o>m then proizv:=proizv*o;

i:=i+1;

end;

writeln(proizv);

end.

Answer 2

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('Число элементов ='), -99, 99);

 a.Println;

 var m := ReadInteger('m =');

 a.Where(t -> t > m).Aggregate(BigInteger(1), (p, q)-> p * q).Println

end.