Паскаль. вычислить произведение элементов р[1..20] больших 0.

Program i13; var     proisv,p,i: integer;     a: array[1..20] of integer; begin   readln(p);   proisv: =1;   for i: = 1 to p do         if a[i]> 0 then             proisv: =proisv*a[i]   writeln(proisv); end.

Если используется pascal.abc, то строку massiv[i] : = random(-19)+10; нужно заменить на massiv[i] : = random(-10, 10); const       countofelements = 20; var       i, countofnumbers, randomnumber: integer;       massiv : array[1..countofelements] of integer; begin       randomize;       countofnumbers : = 0;       for i: =1 to countofelements do       begin            massiv[i] : = random(-19)+10;           if ( (massiv[i] < 0) and (massiv[i] > -5) ) then countofnumbers += 1;       end;       writeln(countofnumbers); end.

Const n = 11; var       numbertoinsert, placetoinsert, i, counter : integer;       massiv : array[1..n] of integer; begin       placetoinsert : = 0;       for i : = 1 to n-1 do           read(massiv[i]);       readln(numbertoinsert);       while (numbertoinsert > massiv[placetoinsert]) do           placetoinsert += 1;     for i : = n - 1 downto placetoinsert do            massiv[i+1] : = massiv[i];           massiv[placetoinsert] : = numbertoinsert;       for i : = 1 to n do            write(massiv[i]: 3); end.