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