// PascalABC.NET 3.0, сборка 1156 от 30.01.2016 function Avg(a:array[,] of integer):real; begin var s:=0; var k:=0; foreach var e:integer in a do if e>0 then begin s+=e; Inc(k) end; if k>0 then Result:=s/k else Result:=1e-100; end;
begin var A:=MatrixRandom(4,4,-50,50); Writeln(A); Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3); var B:=MatrixRandom(5,5,-30,30); Writeln(B); Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3); var C:=MatrixRandom(4,5,-25,38); Writeln(C); Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3); end.
Тестовое решение: [[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]] Среднее арифметическое положительных равно 24.000 [[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]] Среднее арифметическое положительных равно 15.083 [[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]] Среднее арифметическое положительных равно 19.200
Снег мягкий, пушистый ложится ковром. И хлопья летят как с небес парашюты. Иду на концерт через парк напролом, Сегодня на сцене весь день лилипуты.
И что-то далёкое с детства пришло, Ворвалось тайком, будто кот в одеяло. И тут же волною приплыло тепло, И радостно сердцу как будто бы стало.
Секундой десятки годов протекли, И так же лилипут выступленье. Но средь временного пространства дали Случайно ворвались два быстрых виденья.
Был главным актёром тогда Коля Манг. Мне имя его не даёт всё покоя. И начал искать средь названий тот ранг, Что выйдет на тайну эстрады героя.
Искать не пришлось мне столетьями их, Друзья меня взяли с собою в походы. И хоть ветер памяти несколько стих, Скажу, что узнал, несмотря на все годы…
Пейзаж колоссальный, красавец- Мангуп! Дорога змеится, внизу- винограды. Но- дрожь пробирает, стучит зуб о зуб, И даже, похоже, туристы не рады…
Какой-то неясный, таинственный шум, Он то- наяву, то в тумане душевном. Пытаюсь уйти от тревожащих дум, Всё вижу вокруг в ореоле волшебном.
Кружится, как в сказке, серебряный свет, Мираж впереди, или жизни картина? Все краски опишет едва ли поэт, И месяц, как долька висит апельсина…
И вспомнил, что видел товарищ тогда, На странной вершине гористого плато. Вина мы не брали, лишь только еда, А, впрочем, оно ведь у всех виновато…
Сказал он наутро, что видел концерт, Куда направляли мы с ним свои ноги. Увидел он будущий свой там мольберт, И как я пишу про Мангуп эти строки…
Но именно там как в «окошко» глядел, Сквозь времени линзу, астрал-телескопа… А я сомневаться рассказу посмел, Как рыба в легенду морского потопа.
Мангуп по местам всё расставил теперь, Видение гор лишь под утро умчалось… Коль в «завтра» одна хоть имеется дверь, То ключ от замка нам найти уж осталось…
ТМДЛ имеют свой порядковый номер в СС.
Т - 0
М - 1
Д - 2
Л - 3
Получается, что ЛМДТ в четверичной системе счисления = 3120.
Переведём число 3120 в четверичной в десятичную систему
3 * 4^3 + 1 * 4^2 + 2 * 4 = 216
Но у нас есть буква со значение "0", следовательно, нам нужно прибавить единицу к 216, чтобы получить номер слова ЛМДТ.
ответ: 217.