На вход программе два целых числа nm , каждое вотдельной строке необходимо решить без использования условных операторов (в том числе без тернарного оператора ? : в с++) и\или циклов. кроме того нельзя использовать операции сравнения и логический (булевский) тип данных. не проходит 1 тест.h=int(m=int(a=60*(h+1//(1+(60*h+1)//(11*m+1))*12)//11-mprint(a)

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив 8x6 ***');   var c: =matrrandom(8,6,-99,99);   c.println(4); writeln(4*c.colcount*'-');   writeln('произведения элементов, больших -7, построчно: ');   foreach var row in c.rows do       writeln(row.where(x-> x> -7).aggregate(int64(,q)-> p*q)); end. пример *** исходный массив 8x6 ***   -50    8 -15  55  91 -53   -25  82  33  65  19 -63   99  49 -80  84  -2  68   -52 -63 -58  23  89  58   81 -45 -71 -85  34  66   -35    2  23  26 -33 -56   74  35 -35  21  15 -77   40  87 -11  77 -74 -65 произведения элементов, больших -7, построчно: 40040 3341910 -55417824 118726 181764 1196 815850 267960

01. program  massiv5; 02. uses  crt; 03. const  n=10; 04. type  x=array  [1..n]  of  integer; 05. var  a: x; 06. i: integer; 07. max: integer; 08. imax: integer; 09.begin10.clrscr; 11.randomize; 12. for  i: =1  to  n  do13.begin14. a[i]: = -50+random(101); 15. write  (a[i]: 5)16. end; 17. writeln; 18. imax: =1; 19. max: =a[1]; 20. for  i: =2  to  n  do21. if  max< a[i]  then22.begin23.max: =a[i]; 24.imax: =i25. end; 26. writeln  (‘максимальный элемент в массиве=’,max: 5); 27. writeln  (‘его индекс=’,imax: 5); 28.readln29. end.