Вмассиве с={1, 2, -3, 0, -1, -7, -9, 9, 10, -3} найти количество соседств двух положительных и количество соседств двух отрицательных элементов массива

//PascalABC.Net 3.1 сборка 1200
var
    c: array of integer := (1, 2, -3, 0, -1, -7, -9, 9, 10, -3);

begin
//    c := ArrRandomInteger(10, -10, 10);
    Println(c);
    Writeln(c.Pairwise().Where(x -> x.Item1 * x.Item2 > 0));
end.

Есть две переменные а и б
Изначально а=0, б=2364

 

Пока б будет больше 0 он будет выполнять следующие действия:

если остаток от б/10 меньше нуля тогда к А прибавляется этот остаток.
 Б делим на 10 и повторяем

 

Вывод А

 

Сама задача вычисляет сумму цифр в числе которые меньше 5.
Дано Б = 2364.

Задача смотрит остаток от 2364 mod 10 = 4

4 меньше пяти соответственно в А=4

далее 2364/10=236

 

теперь 236 mod 10 = 6

6 больше пяти поэтому ниче не делаем

236 div 10 = 23

 

теперь 23 mod 10 = 3

3 меньше пяти соответственно А=А+3 = 4+3 = 7

23 див 10 = 2

 

теперь 2 mod 10 = 2

2 меньше 5 соответственно А=А+3 = 7+2 = 9

2 див 10 = 0

 

Так как Б=0 программа выходит из цикла и выводит А, т.е. число 9

 

основанием системы счисления называется количество разных знаков либо символов, которые используются для изображения цифр в этой системе. основанием принимают всякое натуральное число — 2, 3, 4, 16 и т.д. то есть, существует безграничное множество позиционных систем. например для десятичной
системы основание равно 10. база системы — это последовательность цифр, используемых для записи числа. ни в одной системе нет цифры, равной основанию системы. как можно догадаться, сколько есть чисел, столько же может быть и оснований систем счисления. но используются только самые удобные основания
систем счисления.