From 967be9e750221ab2ab783f95df79bb26d290a45e Mon Sep 17 00:00:00 2001
From: Martial Simon <msimon_fr@hotmail.com>
Date: Mon, 15 Sep 2025 01:07:58 +0200
Subject: add: added projects

---
 tigrou/use-an-array/use-an-array.tih | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 tigrou/use-an-array/use-an-array.tih

(limited to 'tigrou/use-an-array/use-an-array.tih')

diff --git a/tigrou/use-an-array/use-an-array.tih b/tigrou/use-an-array/use-an-array.tih
new file mode 100644
index 0000000..55a7d5a
--- /dev/null
+++ b/tigrou/use-an-array/use-an-array.tih
@@ -0,0 +1,12 @@
+type int_array = array of int
+function max_search(a : int_array, size : int) : int =
+	if size <= 0 then -1
+	else
+		let
+			var maxi := 0
+		in
+			(for i := 1 to size - 1 do
+				if a[maxi] < a[i] then
+					maxi := i);
+			maxi
+		end
-- 
cgit v1.2.3