Реши задачу Задан числовой массив, состоящий из 14 элементов. Найдите произведение всех отрицательных элементов, больших минимального

var i, min, mult: integer;

arr: array[1 ... 14] of integer;

Цикл для задания массива из положительных и отрицательных целых чисел:

begin

for i:=1 to 14 do

begin

arr[i]:=random (20) - 10;

write (arr[i]:4);

end;

writeln;

min:=arr[1];

mult:=1;

Цикл, который находит минимальный элемент и присваивает его переменной min:

for i:=1 to 14 do

begin

if arr[i]
min:=arr[i];

end;

Цикл, который проверяет, удовлетворяет ли элемент условию задания, и если да, то умножает такие элементы:

for i:=1 to 14 do

begin

if (arr[i]>min) and (arr[i]<0) then

mult:=mult*arr[i];

end;

writeln (mult);

end.