===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Count(p -> p > 0).Println
end.
Ребро - линия пересечения двух плоскостей, узкий край или сторона предмета. Дуга - участок кривой между двумя её точками
Для торговли всегда нужна письменность.
Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла