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.
Объяснение :Программное (математическое) моделирование используется в тех случаях, когда перед реализацией проекта необходимо выполнить пробный запуск модели с фиксацией полученных результатов в виде графиков. Таким образом человек узнаёт, какой результат реализации проекта он хотел бы видеть. Примеры математического моделирования для реализации проекта: 1) автоматизация электропривода; 2) моделирование работы электронного устройства в радиотехнике; 3) моделирование работы тепловой установки.
Бывает моделирование для проведения исследований, например, моделирование взрыва сверхновой звезды.
Если проект не предусматривает математическое моделирование, то необходимо составить детальный план реализации проекта. Это может быть бизнес-план для начала бизнеса или описание строительства теплицы. Или любой другой проект, не требующий построения плавных графиков функций.
