Question

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

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<n) do

begin

read(o);

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

i:=i+1;

end;

writeln(proizv);

end.

Answer 3

Для нахождения произведения только тех чисел последовательности, которые больше заданного числа m, вы можете использовать следующий код на языке Pascal:

pascalCopy code
program FindProductGreaterThanM;

const
  MAX_SIZE = 100; // Максимальный размер последовательности

var
  sequence: array[1..MAX_SIZE] of Integer;
  n, m, product: Integer;
  i: Integer;

// Функция для нахождения произведения чисел, больших m
function FindProductGreaterThanM(sequence: array of Integer; n, m: Integer): Integer;
var
  i: Integer;
begin
  Result := 1;
  for i := 0 to n - 1 do
  begin
    if sequence[i] > m then
      Result := Result * sequence[i];
  end;
end;

begin
  Write('Введите количество чисел в последовательности (n <= ', MAX_SIZE, '): ');
  ReadLn(n);

  WriteLn('Введите последовательность чисел:');
  for i := 1 to n do
    ReadLn(sequence[i]);

  Write('Введите число m: ');
  ReadLn(m);

  product := FindProductGreaterThanM(sequence, n, m);
  WriteLn('Произведение чисел, больших ', m, ': ', product);
end.

Выполнение программы просит ввести количество чисел в последовательности n, сами числа последовательности и число m. Затем программа вычисляет произведение только тех чисел последовательности, которые больше m, и выводит результат на экран.