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

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