Question

Дана последовательность целых положительных чисел. Найти произведение только тех чисел, которые больше заданного числа М. Если таких нет выдать сообщение об этом.   На Паскале.   Срочно, и пожалуйста, без заумных команд, а так чтобы понятно было!

Answer 1

var m,x,n,p,i:integer; s:boolean;
begin
p:=1;
writeln('Vvedite kolichestvo chisel:');
read(n);
writeln('Vvedite chislo s kotorim sravnit:');
read(m);
writeln('Vvedite cifri:');
for i:=1 to n do begin
readln(x);
if m<x then begin p:=p*x; s:=true; end;
end;
if s=true then writeln('Proizvedenie - ',p) else writeln('Net takih chisel');
end.

Answer 2

Конечно, вот пример решения задачи на Паскале:

pascalCopy code
program FindProduct;

var
  sequence: array of Integer;
  M, product: Integer;
  i: Integer;
  found: Boolean;

begin
  { Вводим последовательность чисел }
  Write('Введите количество чисел в последовательности: ');
  ReadLn(i);
  SetLength(sequence, i);
  
  for i := 0 to Length(sequence) - 1 do
  begin
    Write('Введите число ', i + 1, ': ');
    ReadLn(sequence[i]);
  end;
  
  { Вводим число M }
  Write('Введите число M: ');
  ReadLn(M);
  
  { Ищем произведение }
  product := 1;
  found := False;
  
  for i := 0 to Length(sequence) - 1 do
  begin
    if sequence[i] > M then
    begin
      product := product * sequence[i];
      found := True;
    end;
  end;
  
  { Выводим результат }
  if found then
    WriteLn('Произведение чисел, больших M, равно ', product)
  else
    WriteLn('В последовательности нет чисел, больших M.');
  
  ReadLn;
end.

Эта программа позволяет вам ввести последовательность целых положительных чисел и число M. Затем она находит произведение только тех чисел, которые больше M. Если таких чисел нет, программа выводит сообщение об этом.