//pascal abc.net 3.1 сборка 1219 var ar: array[1..10] of integer; i,n,k: integer; b: boolean; begin randomize; k: =1; b: =false; writeln('array'); for i: =1 to 10 do begin ar[i]: =random(-10,10); write(ar[i]: 4); end; writeln; readln(n); for i: =10 downto 10-n+1 do if ar[i]> 0 then begin k: =k*ar[i]; b: =true; end; if b=true then write('res=',k) else write('res=0'); end. пример работы программы: array 0 -8 -7 -9 8 -8 9 2 -7 -6 5 res=18