Нужно нарисовать блок-схему, 4. Найдите произведение цифр четырехзначного числа;

5. Найдите количество четных и нечетных цифр данного натурального числа;

6. Пользователь вводит порядковый номер дня недели и у него на экране отображается, какие сегодня пары;

Влага - основной источник жизни для растений. Вода растворяет питательные вещества, образуя почвенный раствор, впитываемый корнями. Недостаток влаги приводит к преждевременному старению и сокращению продуктивного периода жизни. Растения хуже плодоносят, легче подвергаются болезням, становятся не переносить стойкие морозы. Избыток влаги не менее вреден. В переувлажненной почве нарушается газообмен, что приводит к загниванию и отмиранию корневой системы. Помимо этого возрастает опасность заражения листьев и плодов паршой и грибковыми заболеваниями.

Поскольку на любом приусадебном участке можно увидеть ягодники, плодовые кусты и деревья, поговорим об их правильном поливе - залоге обильного и богатого урожая.

Необходимость в поливе напрямую зависит от погоды, состояния почвы и потребности самих растений. Оптимальная влажность почвы для плодового сада - 65-80%. На разных этапах развития садовые культуры требуют различного количества воды.

Ранней весной достаточно влаги тающего снега. В конце мая и июне, в период вегетации, интенсивного роста, цветения и закладки почек плодово-ягодные растения расходуют большое количество воды. Важно позаботиться об обильном поливе и следить за тем, чтобы в это время почва вокруг растений не пересыхала. В дальнейшем потребность в воде заметно снижается и ограничивается дождевой влагой. Однако в случае засушливого лета в сентябре проводят дополнительный полив, так как в это время происходит активное накопление питательных веществ, обеспечивающих зимостойкость.

Все плодово-ягодные культуры поливают ранним утром или в вечерние часы, до захода солнца. В это время испарение влаги из почвы минимально. Днем полив допустим при пасмурной погоде.

Невнятно как-то сформулировано - то индексы найти, то массива нету... Пишу, как понял.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";

ПЕР
  массив: РЯД 15 ИЗ ВЕЩ;
  сч, найдено: ЦЕЛ;
  найденное, индексы: ДОСТУП К РЯД ИЗ ВЕЩ;

УКАЗ
  найдено := 0;
  СОЗДАТЬ(индексы, РАЗМЕР(массив) - 1);
  ОТ сч := 1 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] = массив[0] ТО
      найденное[найдено] := сч;
      УВЕЛИЧИТЬ(найдено)
    КОН
  КОН;
  ЕСЛИ найдено = 0 ТО Вывод.Цепь("Не найдено.")
  ИНАЧЕ
    СОЗДАТЬ(индексы, найдено);
    ОТ сч := 0 ДО найдено - 1 ВЫП
      индексы[сч] := найденное[сч]
    КОН;
    найденное := ПУСТО
  КОН

КОН Задание.