Вся программа написана не очень корректно но все таки начну с мэйн это основная праграма для запуска всего остального инт ай и джи это целые числа которые ты используешь дальше принт ф это выходит сообщение где тебе пишется введите число целое скан ф вывод сообщения с тем что ты написал фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11 принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход гетч это оставление окна до тех пор пока ты не нажмешь кнопку
начну с мэйн
это основная праграма для запуска всего остального
инт ай и джи это целые числа которые ты используешь дальше
принт ф это выходит сообщение где тебе пишется введите число целое
скан ф вывод сообщения с тем что ты написал
фор две строки это выполнения операции с цифрами она прибавляет по 1 лимиты там описаны от 7 до 10 и от 2 до 11
принт ф опять вывод того что получилось далее переходит на следуюшию строку и снова переход
гетч это оставление окна до тех пор пока ты не нажмешь кнопку
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.