1. Составьте программу вычисления в массиве А(10) количества четных элементов 2. Составьте программу увеличения всех элементов массива В(5) на 4 3. Составьте программу вычисления суммы элементов массива М(12), которые по модулю больше 3.
1) Не важно, какой оно длины. Если оно заканчивается чётной цифрой, то оно чётно, обратное тоже верно. Тупо проверяем число на чётность:
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ; УКАЗ ОТ сч := 0 ДО N - 1 ВЫП ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН КОН
3) ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ; УКАЗ мин_зн := массив[0]; мин_ном := 0; ОТ сч := 1 ДО N - 1 ВЫП ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН КОН
ЕСЛИ число ОСТАТОК 2 = 0 ТО Вывод.Цепь("Верно.") ИНАЧЕ Вывод.Цепь("Не верно.") КОН
2)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО N - 1 ВЫП
ЕСЛИ массив[сч] < 0 ТО массив[сч] := -массив[сч] КОН
КОН
3)
ПЕР массив: РЯД N ИЗ ЦЕЛ, сч, мин_зн, мин_ном: ЦЕЛ;
УКАЗ
мин_зн := массив[0]; мин_ном := 0;
ОТ сч := 1 ДО N - 1 ВЫП
ЕСЛИ массив[сч] > мин_зн ТО мин_зн := массив[сч]; мин_ном := сч КОН
КОН