Напишите и объясните программу, которая в последовательности целых чисел находит и выводит количество положительных и количество отрицательных чисел. программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит а последовательность) количество чисел не превышает 1000. введенные числа по модулю не превышают 1000

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.

Пусть стартовое число отрезка - а, количество чисел в отрезке - м. тогда сумма чисел в отрезке будет am+m(m+1)/2=1020 a=1020/m - (m+1)/2 видно, что м - это делители числа 1020, 1,2,3,4,5,6,10,12,15,17,20,30,34,51, эти делители в последнюю формулу надо подставлять и проверять целочисленном б результата. первое решение а=1020 м=1 вообщем, ответ 8