// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');
end.
<u><em>Тестовое решение:</em></u>
n= 5350004533300045645600
8 нулей
Примеры:
1)
Вышел на улицу - неполная
Вася вышел гулять на площадке перед домом в шесть часов вечера - полная
2)
Поставил два за поведение - неполная
Дворник ради шутки поставил два за поведение в дневник мальчика - полная.
Полезная:
В моей комнате лежит циркуль,который ты вчера искал
Неполезная:
У меня в комнате есть циркуль
понятная :(дайте мне перекись водорода) и непонятная :(дайте мне пероксид водорода
Если у меня осталась тетрадь с прошлого года то отошлю
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var b:=new integer[n];
for var i:=0 to n-1 do
b[i]:=a[:i+1].Max;
b.Println
end.
<em>Пример</em>
n= 15
-21 27 -19 -7 34 -20 25 36 40 -2 40 43 -37 41 7
-21 27 27 27 34 34 34 36 40 40 40 43 43 43 43