Нужна в с++. буду . )​

// pascalabc.net 3.1, сборка 1195 от 09.03.2016 begin   var a: =arr('a','b','c','d');   var m: =a.length-1;   for var x1: =0 to m do       for var x2: = 0 to m do             for var x3: =0 to m do write(a[x1],a[x2],a[x3],' ') end. результат выполнения программы: aaa aab aac aad aba abb abc abd aca acb acc acd ada adb adc add baa bab bac bad bba bbb bbc bbd bca bcb bcc bcd bda bdb bdc bdd caa cab cac cad cba cbb cbc cbd cca ccb ccc ccd cda cdb cdc cdd daa dab dac dad dba dbb dbc dbd dca dcb dcc dcd dda ddb ddc ddd

// pascalabc.net 3.1, сборка 1195 от 09.03.2016 begin   var s: =0.0;   var p: =1.0;   var c: real;   for var i: =1 to 5 do begin       write('число ',i,': '); read(c);       if c< 0 then s+=c       else           if c> 0 then p*=c       end;   writeln('сумма отрицательных равна ',s);   writeln('произведение положительных равно ',p) end. тестовое решение: число 1: 3.5 число 2: -1.4 число 3: 0 число 4: 3.7 число 5: -2.11 сумма отрицательных равна -3.51 произведение положительных равно 12.95