From bb40f5bd19100a5b5420c42f0baa0f235a4b3068 Mon Sep 17 00:00:00 2001
From: davidon-top <me@davidon.top>
Date: Wed, 15 Jan 2025 09:10:30 +0100
Subject: [PATCH] 18

---
 ulohyfs/src/u18.fs     | 19 +++++++++++++++++++
 ulohyfs/ulohyfs.fsproj |  1 +
 2 files changed, 20 insertions(+)
 create mode 100644 ulohyfs/src/u18.fs

diff --git a/ulohyfs/src/u18.fs b/ulohyfs/src/u18.fs
new file mode 100644
index 0000000..9353296
--- /dev/null
+++ b/ulohyfs/src/u18.fs
@@ -0,0 +1,19 @@
+module UlohyFs.u18
+
+open System.IO
+open UlohyFs.Attributes
+open System
+
+[<Uloha(18)>]
+let uloha15() =
+    let mutable znamky = []
+    let mutable running = true
+    while running do
+        let znamka = Console.ReadLine() |> int
+        if znamka = 0 then
+            running <- false
+        else
+            znamky <- znamky @ [znamka]
+            znamky |> List.map float |> List.average |> printfn "Prumer: %f"
+            znamky |> List.min |> printfn "Minimum: %d"
+            znamky |> List.max |> printfn "Maximum: %d"
diff --git a/ulohyfs/ulohyfs.fsproj b/ulohyfs/ulohyfs.fsproj
index 5055383..d55b47e 100644
--- a/ulohyfs/ulohyfs.fsproj
+++ b/ulohyfs/ulohyfs.fsproj
@@ -11,6 +11,7 @@
         <Compile Include="src\u16.fs" />
         <Compile Include="src\u15.fs" />
         <Compile Include="src\u17.fs" />
+        <Compile Include="src\u18.fs" />
         <Compile Include="src\Program.fs" />
     </ItemGroup>