質問編集履歴
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -8,13 +8,19 @@
|
|
|
8
8
|
Sub Main()
|
|
9
9
|
Dim data As Integer() = {2, 4, 7, 8, 3, 4, 5, 1, 2, 3, 7, 3, 6, 7, 2, 6, 3, 8, 3, 1, 7, 1, 9, 3, 5, 3, 6, 7, 3, 9, 2, 6, 3, 8, 3, 1, 7}
|
|
10
10
|
|
|
11
|
-
'最大値をmaxに代入
|
|
12
|
-
|
|
11
|
+
Dim max = data(0)
|
|
13
12
|
|
|
14
|
-
|
|
13
|
+
For i As Integer = 0 To data.Length - 1
|
|
15
14
|
|
|
15
|
+
If data(i) > max Then
|
|
16
|
+
max = data(i)
|
|
17
|
+
End If
|
|
18
|
+
|
|
19
|
+
Next
|
|
20
|
+
Console.WriteLine("最大値は" + CStr(max) + "です")
|
|
21
|
+
|
|
16
22
|
Console.ReadLine()
|
|
17
|
-
|
|
23
|
+
|
|
18
24
|
End Sub
|
|
19
25
|
|
|
20
26
|
End Module
|