Question

Одно из пяти заданий пожалуйста. Если можете больше поцелую))

Answer 1

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

ПЕР
  A: РЯД 8 ИЗ ЦЕЛ;
  сч, кол_отр, произв_полож: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 100)) - 50
  КОН;
  кол_отр := 0; произв_полож := 1;
  ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
    ЕСЛИ A[сч] < 0 ТО УВЕЛИЧИТЬ(кол_отр) КОН;
    ЕСЛИ A[сч] > 0 ТО произв_полож := произв_полож * A[сч] КОН
  КОН;
  Вывод.ЧЦел("Количество отрицательных: %d; произведение положительных: %d.", кол_отр, произв_полож, 0, 0)

КОН Задание_5.

На тебе ещё одно. Поцеловать можешь стенку в самый кирпич.

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

ПЕР
  A: РЯД 10 ИЗ ЦЕЛ;
  сч, сумма: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
    A[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 24)) + 1
  КОН;
  сумма := 0;
  ОТ сч := 0 ДО РАЗМЕР(A) - 1 ВЫП
    ЕСЛИ НЕ ЧЕТ(A[сч]) ТО УВЕЛИЧИТЬ(сумма, A[сч]) КОН
  КОН;
  Вывод.ЧЦел("Сумма нечётных элементов: %d.", сумма, 0, 0, 0)

КОН Задание_4.