// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(30,-5,50); a.Println;
Writeln('k=',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
24 39 36 2 -3 -3 29 32 24 -3 11 14 17 -4 -1 13 13 36 24 49 41 27 17 20 24 32 36 -2 -1 7
k=7
Пусть первое число записано в виде a₁a₂a₃, второе - b₁b₂b₃, а поразрядные суммы находятся как c₁=a₁+b₁, c₂=a₂+b₂, c₃=a₃+b₃
Очевидно, что поскольку a,b ∈ [0;9], то min(c)=0, max(c)=18.
Пусть результирующее число D имеет запись d₁d₂d₃, d₁,d₂,d₃ ∈ [0;18],
тогда D запишется как c₁c₂c₃, если c₁<c₂ и как c₂c₁c₃ в ином случае.
Следовательно, две первые "цифры" в результате всегда следуют в порядке неубывания.
А) 171412 - разделяется только как 17 14 12, 17>14, это убывание, а оно НЕДОПУСТИМО.
В) 121419 - разделяется только как 12 14 19, сумма 19 НЕДОПУСТИМА.
С) 81714 - разделяется только как 8 17 14, 8<17, это неубывание и оно ДОПУСТИМО.
D) 15117 - разделяется только как 15 11 7, 15>14, это убывание, а оно НЕДОПУСТИМО.
E) 4809 - корректно не разделяется на три части и это НЕДОПУСТИМО.
Ответ: C
//PascalABC.NET 3.0
begin
for var i := 1 to 10 do
begin
for var j := 1 to 10 do
if i = 1 then write(j : 3)
else if j = 10 then write(9 + i : 3)
else if i = 10 then write(29 - j : 3)
else if j = 1 then write(38 - i : 3)
else write(0 : 3);
writeln;
end;
<span>end.</span>