Информатика даны два целых числа. найти их среднее арифмитическое и средние геометрическое

Информатика (паскаль) Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.

Помогите сделать задачи в Pascal ABC. 1. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, т. е. квадратный корень из их произведения: (a*b) 1/2 (1/2 это степень). 2. Даны два ненулевых числа.

Описать процедуру Mean (X, Y, AMean, GMean), вычисляющую среднее арифметическое AMean = (X+Y) / 2 и среднее геометрическое двух положительных чисел X и Y (X и Y - входные, AMean и GMean - выходные параметры вещественного типа).

Линейные алгоритмы. 1. Даны три действительных положительных числа. Найти среднее геометрическое и среднее арифметическое этих чисел. Условный оператор if. 2. Заданы два числа х, у. Меньшее из двух значений заменить на 0.

Даны 2 целых числа вычислить среднее арифметическое их модулей и среднее геометрическое их модулей