
Файл содержит действительные числа. Найти среднее геометрическое всех положительных чисел файла.
Pascal

Программа для решения задачи (даже 2 программы - в прилагаемом файле.
Оцени ответ