Это некорректная задача, т.к. не указано считает ли учитель различными комбинации в которые различаются только порядком (например, <3,4,5> и <4,3,5>)?
Если для него это разные комбинации, то ответ: 3^3 = 27
А вот, если не различает, то ответ: 3! (все оценки различны) + 3!/(3-2)! (две оценки
совпадают) + 3!/(3-1)! (три оценки совпадают) = 6 + 6 + 3 = 15
Соответственно ответ: или 27, или 15.
Begin
kk:=0;
for i:=1 to 15 do begin
a[i]:=random(1)+20;
if(a[i]>10)then inc(kk);
end;
end;
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',m,'] ***');
var a:=ReadMatrInteger(n,m);
var z:=ReadInteger('Z=');
var s:=a.ElementsWithIndexes.Where(x->abs(x[2])<=z);
if s.Count>0 then begin
var t:=s.First;
Writeln('Строка ',t[0]+1,', столбец ',t[1]+1)
end
else
Writeln('Элемент не найден');
end.
Пример
Количество строк в матрице: 4
Количество столбцов в матрице: 5
*** Исходная матрица [4,5] ***
-33 -46 7 48 -44
-13 -3 -13 -10 48
-18 -25 -39 -23 -44
28 32 -1 39 3
Z= 5
Строка 2, столбец 2
В предложении 51 символ считая с пробелами
51*16=816 бит
ответ 1) 816 бит
