Дан массив из 15 целых чисел заполненный случайными числами из интервала [-20; 20]. определить, что больше сумма или произведение элементов массива. паскаль.

Var multiplication, summ: real; i: integer; massive = array[1..15] of real; begin multiplication: =1; randomize;     for i: =1 to 15 do     begin       massive[i]: =random(20)-20;       multiplication: =multiplication  * massive[i];         summ: =summ+massive[i];     end;     if  multiplication  > summ     then           begin             writeln('multiplication elements of massive more');         end     else           begin               writeln('summ  elements of massive more');           end; end.

Тут все const       handsfree = true; var       a: array[1..100] of real;       i, n: integer;       min, max: real;       sum, product, harmonic: real;       k: integer; begin       {ввод массива}       if handsfree then               n : = random(20) + 5       else begin               write('n = ');               readln(n);       end;             writeln('данные массива: ');       for i : = 1 to n do       begin               if handsfree then begin                       a[i] : = random(100) - 50;                       write(a[i], ' ');               end               else readln(a[i]);       end;       writeln();             {подсчет элементов}       k : = 0;       for i : = 1 to n do               if a[i] > 5 then k : = k + 1;       writeln(k);             {минимум и максимум}       max : = a[1];       min : = a[1];       for i : = 1 to n do       begin               if max < a[i] then max : = a[i];               if min > a[i] then min : = a[i];       end;       writeln('max = ', max);       writeln('min = ', min);             {подсчет суммы и произведения и агригатов}       sum : = 0;       product : = 1;       harmonic : = 1;       k : = 0;       for i : = 1 to n do       begin               if true then {если нужен фильтр}               begin                       sum : = sum + a[i];                       product : = product * a[i];                       harmonic : = harmonic + 1 / a[i];                       k : = k + 1;               end;       end;       writeln('sum = ', sum);       writeln('product = ', product);       writeln('average = ', sum / n);       writeln('average (selected) = ', sum / k);       writeln('harmonic mean = ', n / harmonic);       writeln('harmonic mean (selected) = ', k / harmonic);             {изменение элементов}       for i : = 1 to n do       begin               if a[i] < 0 then                       a[i] : = abs(a[i]);               write(a[i], ' ');       end; end.

Var a,b,c,r,d1,d2,d3: real; begin     writeln('введи радиус иллюминатора и размеры сундука');     readln(r,a,b,c);     d1: =sqrt(sqr(a)+sqr(b));     d2: =sqrt(sqr(a)+sqr(c));     d3: =sqrt(sqr(b)+sqr(c));     writeln('диагонали сундука: d1=', d1,' d2=',d2,' d3=',d3,' диаметр  окна: ',2*r);     if (d1< r*2)or(d2< r*2)or(d3< r*2) then writeln('сундук пройдёт') else  writeln('сундук не  пройдёт'); end.