Question

Дан одномерный массив A размерностью N(<=0). Значение массива ввести с клавиатуры, заполнить массив с помощью генератора случайных чисел. найти среднее арифметическое и количество всех положительных элементов массива))Помогите составить программу в Паскале, буду благодарна:)