Предмет: Информатика,
автор: userkakoyto
Есть значения трех заданных чисел, необходимо определить среднее арифметическое этих чисел.
Название
Описание
Ввод
Вывод
Ответы
Автор ответа:
1
Язык программирования не указан. Напишу на Haskell.
- import Data.List (genericLength)
- readInts :: Int -> IO [Int]
- readInts n = (fmap read) <$> mapM (\n -> getLine) [1..n]
- avg :: [Int] -> Double
- avg xs = realToFrac (sum xs) / genericLength xs
- main :: IO ()
- main = do
- numbers <- readInts 3
- print . avg $ numbers
Приложения:
Похожие вопросы
Предмет: Английский язык,
автор: VikaCat7
Предмет: Русский язык,
автор: Dektormen
Предмет: Русский язык,
автор: bosshristo
Предмет: Математика,
автор: Aydan666
Предмет: Литература,
автор: macha2017