В массиве из N элементов, заданных случайным образом из промежутка [-20;60], найдите произведение всех элементов, больших 20 (pascal abc)

Предыдущий
вопрос Следующий
вопрос

program MultiplicationOfElementsGreaterThan20;

var
arr: array of Integer;
N, i: Integer;
product: Integer;

begin
Write('Enter the number of elements in the array: ');
ReadLn(N);

SetLength(arr, N);

Randomize;

// Initialize the array with random values between -20 and 60
for i := 0 to N - 1 do
begin
arr[i] := Random(81) - 20;
end;

product := 1;

for i := 0 to N - 1 do
begin
if arr[i] > 20 then
begin
product := product * arr[i];
end;
end;

WriteLn('Original array:');
for i := 0 to N - 1 do
begin
Write(arr[i], ' ');
end;

WriteLn;
WriteLn('The product of all elements greater than 20 is: ', product);
end.