Составьте программу которая заполняет массив а [1..10]случайными целыми числами в диапазоне от 1 да 22 и преобразовывает его увеличивая все элементы с четными значениями на 1 а с нечетными уменьшая на 1
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР a: РЯД 10 ИЗ ЦЕЛ; сч: ЦЕЛ;
УКАЗ ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 21)) + 1 КОН; ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП ЕСЛИ ЧЕТ(a[сч]) ТО УВЕЛИЧИТЬ(a[сч]) ИНАЧЕ УМЕНЬШИТЬ(a[сч]) КОН КОН
ИСПОЛЬЗУЕТ Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 21)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ ЧЕТ(a[сч]) ТО УВЕЛИЧИТЬ(a[сч])
ИНАЧЕ УМЕНЬШИТЬ(a[сч]) КОН
КОН
КОН Задание.