// 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)
#Python
#ответ B:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0:
num.append(n)
num3 = []
for n in num:
if int(n) % 3 == 0:
num3.append(n)
print("Макс :", max(num3), " Мин :", min(num3))
#ответ C:
n = 1
num = []
while n != 0:
n = int(input("Введите число : "))
if n != 0 and len(str(n)) == 2:
num.append(n)
num6 = []
for n in num:
if int(n) % 10 == 6:
num6.append(n)
if num6 == True:
print("Макс : ", max(num6))
else:
print("Нет такого число!")
Объяснение: