Pascal ABC
Дан целочисленный массив из n элементов. Элементы массива могут принимать неотрицательные целые значения до 10 000 включительно(это проверять не нужно). Необходимо определить количество четных и нечетных чисел. Если количество чётных чисел больше, чем количество нечётных, заменить каждое нечетное число на произведение нечетных цифр в его десятичной записи. Если количество нечётных чисел больше, заменить каждое чётное число на произведение чётных цифр в его десятичной записи. В качестве результата необходимо вывести изменённый массив в строку.
Например, для исходного массива из семи элементов:
48 31 20 61 97 12 18
программа должна вывести следующий массив
48 3 20 1 63 12 18

Если не вдаваться в несущественные детали, то будущее за виртуальным общением. Пока мы вынуждены, из-за своего невежества, снимать театр. Когда изобрели кино, то не изобрели еще крупного плана Эйзенштейна, и других эффективных приемов, которые сейчас применяются повсеместно. Попросту не знали, что делать с кино. Так и с виртуальным общением. Пока мы к нему подходим со своими старыми взглядами. Главное достоинство виртуального общения – возможность каждого человека принимать участие в практически неограниченном количестве проектов. Современные социальные сети только отчасти решают эти проблемы. Instagram, позволяющий делиться творчеством с друзьями, Twitter …. – только первые ласточки. Главное достоинство виртуальных сетей – возможность бороться с проклятьем бесконечности при друзей-экспертов в самых разнообразных областях предметной деятельности. В ближайшие годы мы будем наблюдать появление социальных сетей нового типа, обобщающие возможности научных конференций, типа четвергов у Ландау, и объединяющие миллионы к созидательному творчеству в самых разнообразных областях предметной деятельности. Безусловно, новые общения имеют недостатки с точки зрения тех, кто привык к традиционным методам. Но, это только в Египте ученики на протяжении 2 тысяч лет учились по неизменному учебнику «Послание отца сыну». Сейчас, в эпоху информационного взрыва старший брат не может понять младшего, не говоря о более солидном поколении. Такая судьба современного человека. Все, к сожалению, происходит почти в соответствии с древним китайским пожеланием врагу: «Чтоб ты жил в эпоху перемен». Но мы должны мужественно принимать удары судьбы, потому что у нас нет выбора, или прогресс, или гибель будущих поколений.  

1.  Вычисляется сумма квадратов чисел от 1 до 4: 1²+2²+3²+4².

2. Вычисляется сумма чисел от 1 до 5. Таблица изменений S и i в цикле for прикреплена в первом вложении.

3. Здесь вычисляется произведение чисел от 1 до 4. После выполнения цикла for в s будет храниться 1*2*3*4=24, а в a - 5. Таблица изменений i, s и a в цикле for прикреплена во втором вложении.

4. Здесь вычисляется произведение чисел от 1 до 5, за исключением того, что изначально s=0, поэтому после цикла for в s тоже будет храниться 0. А в a будет храниться 6.

5. Это циклический алгоритм.

6. S=4. Внутри цикла while число S увеличивается на 1, пока не перестанет выполняться условие "X <= 3". Так как X увеличивается вместе с S, то после цикла S=X=4.

7. Не уверен, что соблюдены какие-то правила составления блок-схем, но в общем у меня получилась такая (вложение 3).