PascalABC.NET 3.4
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, 0, 2); a.Println;
var (k, km) := (0, 0);
for var i := 0 to n-1 do
if a[i] = 0 then
if k = 0 then k := 1
else k += 1
else
begin
if k > km then km := k;
k := 0
end;
Writeln('Максимальное количество нулей подряд равно ',km)
end.
Нц
нц 3 раз
вниз
закрасить
вниз
кц
нц 3 раз
вверх
кц
влево
кц
<span>(((1v0)v1)v1)
</span>((1v1)v1)
(1v1)
1
Ответ:
<em><u>Алеша</u></em>
Объяснение:
Я не делал этого, это сделал Гриша. Если это высказывание истинно, то клад спрятал Гриша. Тогда Гриша соврал сказав Я не делал этого, это сделал Алёша. Я не делал этого, но и Алёша этого не делал. Но тогда это правда, т.е. получили противоречие => Алеша соврал. Я не делал этого, но и Алёша этого не делал. Пусть это правда, тогда Я не делал этого, это сделал Гриша тоже правда. Противоречие. Тогда правду сказал Гриша. Я не делал этого, это сделал Алёша. Все сходится. Противоречий нет.