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

var i,min,mult: integer;arr: array[1..14] of integer;

Цикл для задания массива из положительных и отрицательных целых чисел: beginfor i:=1 to 14 dobeginarr[i]:=random(20)-10;write(arr[i]:4);end;

writeln;min:=arr[1];mult:=1;

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

for i:=1 to 14 dobeginif arr[i]<min thenmin:=arr[i];end;

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

for i:=1 to 14 dobeginif (arr[i]>min) and (arr[i]<0) thenmult:=mult*arr[i];end;

writeln(mult);

end.