Помогите пожалуйста.1)Дано трехзначное число. найти правильно ли, что оно кончается

1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, оборотное тоже верно. Глупо проверяем число на чётность:

ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Правильно.") ИНАЧЕ Вывод.Цепь("Не правильно.") КОН

2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
  ЕСЛИ массив[сч] lt; 0 ТО массив[сч] := -массив[сч] КОН
КОН

3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
  ЕСЛИ массив[сч] gt; мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН