Объект - воздействие: жезл современный

Жезл регулировщика-регулировка движения на перекрестке человеком современный светофор- автоматическая регулировка движения процессором

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (i,k): =(0,-1);   foreach var r in a.rows do       if r.sum mod 3=0 then begin           k: =i; break           end       else i+=1;   if k> =0 then begin       writeln('*** матрица - результат [',n-1,',',m,'] ***');       for var r: =k to a.rowcount-2 do           a.setrow(r,a.row(r+1));       setlength(a,n-1,m);       a.println       end   else writeln('нет строк с суммой жлементов, кратной трем') end. пример количество строк в матрице: 7 количество столбцов в матрице: 8 *** исходная матрица [7,8] ***   -22  75  97  33  10 -58 -50 -11   -5  24  18 -19  -2  77 -55 -74   50  38 -94  88 -80 -76  70 -20   -53  48 -36 -92  70 -76 -14 -36   -57  30 -76  62 -75 -21    3  93   57  -7  74 -39  87 -74  65  42   94 -68  45 -61 -65 -49 -83 -46 *** матрица - результат [6,8] ***   -22  75  97  33  10 -58 -50 -11   50  38 -94  88 -80 -76  70 -20   -53  48 -36 -92  70 -76 -14 -36   -57  30 -76  62 -75 -21    3  93   57  -7  74 -39  87 -74  65  42   94 -68  45 -61 -65 -49 -83 -46