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