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

1. современный вариант // pascalabc.net 3.1, сборка 1213 от 04.04.2016 const   n=14; begin   var a: =arrrandom(n,-50,50); a.println;   var min: =a.min;   var b: =a.where(x-> (x> min) and (x< 0));   if b.count> 0 then writeln('искомое произведение равно ',       b.aggregate(1.0,(p,x)-> p*x))   else writeln('нет отрицательных чисел, меньших минимального') end. тестовое решение: 44 -35 -10 43 -25 -32 -32 -43 4 -50 29 -7 42 3 искомое произведение равно -2696960000 2. школьный вариант // pascalabc.net 3.1, сборка 1213 от 04.04.2016 const   n=14; var   i,min,k: integer;   a: array[1..n] of integer;   p: real; begin   randomize;   min: =100; // любое, большее максимального 50   for i: =1 to n do begin       a[i]: =random(101)-50;       write(a[i],' ');       if a[i]< min then min: =a[i]       end;   writeln;   p: =1.0;   k: =1;   for i: =1 to n do       if (a[i]> min) and (a[i]< 0) then begin           p: =p*a[i]; inc(k)           end;   if k> 0 then writeln('искомое произведение равно ',p)   else writeln('нет отрицательных чисел, меньших минимального') end. тестовое решение: 40 49 27 -14 -34 -45 -41 -23 50 1 40 -18 -27 -20 искомое произведение равно -4362996960

1024*1024*8/217 = с   +   8*1024*1024*8/216=с     просто это время сложишь и будет ответ!