если перевести все эти числа в одну систему счисления (например в десятичную), станет ясно, что правильный ответ 3.
APerova3464
20.07.2020
// 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
krasa28vostok65
20.07.2020
Const n=4; m=5; var a: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(90)+10; if a[i,j] mod 2 = 0 then a[i,j]: =a[i,j]+1; write(a[i,j]: 4); end; writeln; end; k: =0; for i: =1 to n do for j: =1 to m do if (a[i,j] div 10 + a[i,j] mod 10) = 7 then k: =k+1; writeln('k = ',k); end. пример: исходный массив: 41 31 85 25 11 71 29 55 43 79 87 67 23 97 27 55 55 25 69 35 k = 3
если перевести все эти числа в одну систему счисления (например в десятичную), станет ясно, что правильный ответ 3.