// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(5,1,100); mas.Println;
end.
Как в школе учат ->
var i:integer;
mas: Array [1..5] of integer;
begin
randomize;
for i:=1 to 5 do
begin
mas[i]:=Random(-99,99);
Write(mas[i]:4);
end;
end.
Ответ: 5
В первый раз при прохождении цикла i = 0, затем проверяется верно ли, что i<2 (а это верно) и начинается выполние цикла, пока i<2.
После первой итерации:
i = 1
S = 1
После второй итерации:
i = 2
S = 5
Третья итерация не начнётся, т. к. i = 2, что не удовлетворяет условию цикла.
P. S. итерация - это один шаг в цикле
Летом медведь гулял,зимой спал.
По фоpмуле Хаpтли количество инфоpмации в битах = -log_2 p, где p --
веpоятность события. Стало быть, в данном случае веpоятность вытащить
зеленое яблоко pавна 1/4. То есть 1/4 всех яблок -- зеленые (а оставшиеся 3/4 - кpасные). Следовательно, всего яблок -- 48.