Пожалуйста посчитайте пожалуйста с информатикой!!!Составьте программу для нахождения суммы и количество положительных элементов массива,заполненного случайными числами интервала [-20,10].Пожалуйста посчитайте пожалуйста с информатикой.

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

ПЕР
  массив: РЯД 100 ИЗ ЦЕЛ;
  сч, сум, кол: ЦЕЛ;

УКАЗ
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    массив[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 30)) - 20
  КОН;
  сум := 0; кол := 0;
  ОТ сч := 0 ДО РАЗМЕР(массив) - 1 ВЫП
    ЕСЛИ массив[сч] > 0 ТО
      УВЕЛИЧИТЬ(кол); УВЕЛИЧИТЬ(сум, массив[сч])
    КОН
  КОН

КОН Задание.