// 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
<span>1) Из (а) и (б): Ваня и Петя - не С. и не В. Т.е. они либо П, либо К. </span>
<span>Соответственно, Коля и Саша - либо С, либо В. </span>
<span>2) Из (в) и (г) следует, что Коля не В, а значит он - С (поскольку Коля - либо С, либо В). </span>
<span>Значит, В - это Саша (поскольку Саша - либо С, либо В, а С - это Коля) </span>
<span>3) Раз Саша - В, то Петя выше, чем П (из пунктов (в) и (д)), значит, он не П, а К. </span>
<span>Соответственно, Ваня - П.</span>
<span>Делишь несколько раз на 10, каждый раз определяешь остаток от деления, если остаток -0, то счетчик + 1</span>