змінити тло на наступне тло
доторкається межа
коли натиснуто
чекати 0.2 секунд
// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('Отрицательных ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
37 -20 2 -13 10 9 -25 11 8 -3
Отрицательных 4
Log2 (1/p1)=4
p1=1/16;
p2=1/32(в 2 раза меньше)
log2 (1/р2)=5
По источнику создания;
по степени доступа;
по целевому назначению;
по способу представления и виду носителя;
по форме собственности;
по методу организации и хранения;
по содержанию;
по языковому и национально-территориальному или географическому признаку;
по уровню компетенции и т. д.