// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 uses GraphABC;
procedure OutLightGreen(n:integer); begin var OldColor:=FontColor; SetFontColor(clLightGreen); Write(n:5); SetFontColor(OldColor) end;
begin var a:=MatrixRandom(10,14,-180,320); var m:=ReadInteger('n='); Writeln; SetFontColor(clWhite); Font.Style:=fsBold; Font.Name:='Courier'; Brush.Color:=clBlack; Window.Clear(clBlack); var k:=0; for var i:=0 to 9 do begin for var j:=0 to 13 do if a[i,j]>m then begin Inc(k); OutLightGreen(a[i,j]) end else Write(a[i,j]:5); Writeln end; SetFontColor(clRed); Writeln('Количество элементов равно ',k) end.
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/24d2a.jpg)
![Дана матрица 10x14, заданная случайными числами на интервале [-180; 320]. подсчитать количество элем](/tpl/images/0548/3216/d74f6.jpg)
<html>
<head><meta chrset="utf-8"><title>My webpage</title>
<style> p { text-indent: 25px; }
.p1{font-family: Tahoma; /* Имя шрифта */
font-size:15px; /* Размер шрифта */
color: #FF00FF; /* Цвет шрифта */
text-align: right; /* Выравнивание */
}
/* Каждому новому параграфу присваивай класс p2, p3 и т.д. и делай новое правило, основываясь на примере выше */
</style></head>
<body>
<p>©ТвояФамилия</p>
<h1>Заголовок</h2>
<p class="p1" text-align="justify">Твой текст<b>Тут выделенный текст</b></p>
</body>
</html>