Так как половине моей группы уже помогли подготовится к зачёту, надеюсь и мне не откажете)
Задача Pascal:
Написать программу определения среднего геометрического положительных элементов вещественного массива длиной 20. Гарантируется, что хотя бы один положительный элемент имеется в массиве.