Задать одномерный числовой массив из 15 элементов. все отрицательные элементы массива увеличить на 1, а положительные уменьшить на 2. вывести старый и новый массивы. (блок схема)

PascalABC.NET 3.7:

##var sumOfAP := function(a1, an, d: real):real → (a1 + an)/2*((an - a1)/d+1);var (a, b) := ReadInteger2('Введите a и b:');var sE := sumOfAP(a + a mod 2, b - b mod 2, 2);var sO := sumOfAP(a + 1 - a mod 2, b - 1 + b mod 2, 2);Print('Результат:', sE - sO)

Пояснение:

Используется формула для нахождения суммы первых n членов арифметической прогрессии:   , где — первый член прогрессии, — последний член, —разность прогрессии.

sumOfAP -- функция расчёта суммы арифметической прогрессии.(a, b) -- вводимые числа.ReadInteger2(prompt) -- выводит приглашение к вводу prompt и возвращает кортеж из двух значений типа integer, введенных с клавиатуры.sE и sO -- "sum of Even" и "sum of Odd", сумма чётных и сумма нечётных соответственно.Print -- выводит значения на экран, после каждого значения выводит пробел.

1 кодирование
2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д.
3. нахождение информации в глобальной сети, на сервере и т. д.
4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 
5. К математическому типу и текстовому.
6. Они могут быть сделаны на разных текстовых редакторах.
7. По алфавиту - фамилии в школьном журнале, файлы, документы..
В порядке убывания - цифры, числа...
в хронологической последовательности -  даты, события, файлы, документы.