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

Question

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

Comments

не указано

Answer 1

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.

---

Answer 2

var

i:integer;

proizv,o:real;

m,n:real;

begin

proizv:=1;

i:=0;

read(m);

read(n);

while(i

begin

read(o);

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

i:=i+1;

end;

writeln(proizv);

end.