Question

Помогите решить задачу на Паскале, пожалуйста

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

Answer 1

Program Test;

const Max = 10; //Последний член последовательности

var i, M, proizv: integer; Bol: boolean; Arr: array[1..Max] of integer;

Begin

proizv := 1;
Bol := false;

Write('Введите М: ');
Readln(M);
Writeln();

for i:= 1 to Max do
begin
Arr[i] := i;

if (Arr[i] > M) then
begin
proizv := proizv * Arr[i];
Bol := true;
end;
end;

if (Bol = false) then
Writeln('Элементов больше числа М нет!')

else
Writeln('Произведение = ', proizv);

End.