Имеем одномерный массив(таблицу) из 10 элементов
..............................................................................................................
n = 1......2.......3......4......5......6......7......8......9.......10 номера по порядку
mas= 18.....10......-1......6.....12....4......-16....7.....15.......-3...значения элементов
.................................-1............-1.............-1.........
s=0
две строки for i:=3 to 10
если по модулю какой-то элемент начиная с третьего больше 10 то заменяем на элемент стоящий на 2 позиции назад
|-1|>10 нет, |6|>10 нет |12|>10 Да число 12 заменяем на -1
|4|>10 нет |-16|>10 Да Заменяем на -1
|7|>10 нет |15|>10 Да Заменяем на -1 |-3|>10 Нет
Получили новый массив
18 10 -1 6 -1 4 -1 7 -1 -3
Следующий блок программы Для i от 1 до 10 Если элемент <0 то в копилку Вообщем складываем все отрицательные элементы
s= -1 +(-1)+(-1)+(-1)+(-3)= -7
Выводим число - 7
Опустить перо
повернуть налево
идти
повернуть налево
идти
повернуть налево
идти
повернуть направо
идти
повернуть направо
идти
поднять перо
Символы, набранные с использованием кодировки Unicode, кодируются 16 битами каждый. Таким образом, указанный текст будет весить 224 бита или 0,028 килобайт.
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Ответ этого вопроса коктейль