Составить алгоритм для решения : книга стоит d руб., журнал h руб. у покупателя денег s руб. хватит ли их на 3 журнала и 2 книги? .

S-  (d. 2+h.3)          наверно                               

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   var k: =readinteger('номер строки k для обмена: ')-1;   writeln('*** исходная матрица ***');   var rmatr: =matrrandom(n,m,-99,99);   rmatr.println(4); writeln(4*rmatr.colcount*'-');   var j: =0;   for var i: =1 to min(n,m)-1 do       if rmatr[i,i]> rmatr[j,j] then j: =i;   if k< > j then rmatr.swaprows(k,j);   writeln('*** полученная матрица ***');   rmatr.println(4) end. пример количество строк и столбцов в матрице: 7 8 номер строки k для обмена: 3 *** исходная матрица ***   -53    6 -57 -39  41  56  43  36   79 -57 -69 -67 -70  29  25 -87   -70  84 -29 -47 -43 -79  97 -45   99  48 -92 -22 -17    8  57  -9   -12 -58 -73  -5 -12 -76 -90  87   -93 -31 -18  65 -77  27 -43  98   -61  -2 -23 -73  72 -93  20 -73 *** полученная матрица ***   -53    6 -57 -39  41  56  43  36   79 -57 -69 -67 -70  29  25 -87   -93 -31 -18  65 -77  27 -43  98   99  48 -92 -22 -17    8  57  -9   -12 -58 -73  -5 -12 -76 -90  87   -70  84 -29 -47 -43 -79  97 -45   -61  -2 -23 -73  72 -93  20 -73

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var (n,m): =readinteger2('количество строк и столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*m*'-');   var s: ='';   for var i: =0 to n-1 do       if a.row(i).pairwise.select(t-> sign(t[0])< > sign((t-> t=true) then           s+=(i+1)+' ';   if s.length=0 then writeln('нет искомых строк')   else writeln('номера строк: ',s) end. пример количество строк и столбцов в матрице: 10 5 *** исходная матрица ***   -27  90  57    3 -62   35 -92 -54  36  17   -57 -32 -31  85  84   22 -82 -42 -26  87   -69  75 -26 -88    7   -76 -60 -73  35  45   94  66  95 -85 -40   83 -60  59 -56  49   -81 -53  67  11  -9   -39 -73  67 -49  91 номера строк: 8