OM кои ue 0WATWAWSOUна тоадаа.Las MarylaТим романподорожі».Не випадково місцем дії в ромадругій частині) було обрано Афринайменш досліджений на той час ктому чимало наукових експедспоряджено до Африки в середиСеред них усесвітньо відомимикриття славетного англійськогока Девіда Лівінгстона (на його адослідження повсякчас посилаєтьУ романіКоли друга частина роман биш2 o s​

PascalABC.NET

begin

 // Последовательность целых чисел вводится с клавиатуры

 // пока не будет введен 0 (который не войдет в нее).

 // Затем последовательность преобразуется в массив (ToArray)

 // нужного размера, который сохраняется с именем a

 var a := ReadSeqIntegerWhile(p -> p <> 0).ToArray;

 // Заведем счетчики для количества положительных kp и

 // отрицательных kn элементов и обнулим их

 var (kp, kn) := (0, 0);

 // Просматриваем в цикле массив. На каждом шаге p будет обозначать

 // очередной элемент массива

 foreach var p in a do

   if p > 0 then       // если элемент положительный

     kp += 1               // добавим 1 в счетчик положительных

   else if p < 0 then  // если элемент отрицательный

     kn += 1;              // добавим 1 в счетчик отрицательных

 // Осталось вывести результаты

 Writeln('Положительных чисел ', kp, ', отрицательных ', kn)

end.