Решить в программе паскаль: 1) вычислить произхведение сумм положительных и отрицательных элементов целочисленного массива .

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

Var  a: array [1..6,1..10] of integer;   b,i,j,k,l: integer;     begin    b: =0;     for i: =1 to 6 do    begin        k: =32000;         for j: =1 to 10 do        begin          read(l);           if (l< k) then k: =l;         end;         b+=k;     end;     write(b); end.проверено: 1 2 3 4 5 6 7 8 9 1010 9 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 1010 9 8 7 6 5 4 3 2 11 2 3 4 5 6 7 8 9 1010 9 8 7 6 5 4 3 2 1ответ -  6

// pascalabc.net 3.3// cборка 1590 от 03.12.2017 begin    var a: =arrrandom(readinteger('введите размер массива-> ',65); a.println;     println(a.where(e-> e> 0).min);     println(a.where(e-> e< 0).defaultifempty.max);   end. пример(1): введите размер массива-> 10 5 22 21 20 40 9 58 57 54 -2 минимальное среди положительных: 5  максимальное среди отрицательных: -2  пример(2): введите размер массива-> 10 26 7 13 60 39 62 24 9 20 11 минимальное среди положительных: 7  максимальное среди отрицательных: 0