Как собшает друг другу о находке нектара рабочие пчёлы 1 громко жужжат 2 указывает направ лапками 3 исполняют танец

188

374

Посмотреть ответы 3

Ответы на вопрос:

dianahaliullina1

Информатика

4,7(23 оценок)

3. исполняют танец правильный ответ 3

thevenyaname

Информатика

4,8(76 оценок)

Нефига не жужжат! пчёлы возвышаются над нектаром и исполняют "танец".

misterkaha

Информатика

4,8(82 оценок)

// pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var m: =readinteger('количество строк в матрице: '); var n: =readinteger('количество столбцов в матрице: '); writeln('*** исходная матрица [',m,'x',n,'] ***'); var a: =matrrandom(m,n,-50,50); a.println(4); writeln(4*a.colcount*'-'); var q: =a.cols.select(x-> x.first< x.last).toarray; var k: =q.where(r-> r).count; writeln('*** результирующая матрица [',m,'x',k,'] ***'); var b: =matrfill(m,k,0); var l: =0; for var j: =0 to n-1 do if q[j] then begin for var i: =0 to m-1 do b[i,l]: =a[i,j]; l+=1 end; b.println(4) end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5x8] *** 15 -35 -11 -18 49 -32 31 -47 -21 -46 7 -48 3 24 -48 5 28 -46 36 -9 17 -32 -44 -10 -16 7 -14 40 13 30 50 -28 -8 35 -49 47 -31 30 18 20 *** результирующая матрица [5x4] *** -35 -18 -32 -47 -46 -48 24 5 -46 -9 -32 -10 7 40 30 -28 35 47 30 20