Найти максимальный элемент в каждом массиве и максимальный среди них

@smiletimes · Регистрация: 13.06.2010

Author24 — интернет-сервис помощи студентам

помогите пожалуйста решить!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Даны три массива А(10),В(12),С(8). Найти максимальный элемент в каждом массиве и максимальный среди них.

@YuraAAA · 25.06.2010, 11:31

Visual Basic

Public Sub proc1()
Dim A(1 To 10) As Single, B(1 To 12) As Single, C(1 To 8) As Single
Dim max As Single, min1 As Single, min2 As Single, min3 As Single
Cells(1, 1) = "A"
Cells(1, 2) = "B"
Cells(1, 3) = "C"
min1 = 100: min2 = 100: min3 = 100
For i = 1 To 10
A(i) = 100 * Rnd - 50
Cells(i + 1, 1) = A(i)
If A(i) < min1 Then min1 = A(i)
Next i
For i = 1 To 12
B(i) = 100 * Rnd - 50
Cells(i + 1, 2) = B(i)
If B(i) < min2 Then min2 = B(i)
Next i
For i = 1 To 8
C(i) = 100 * Rnd - 50
Cells(i + 1, 3) = C(i)
If C(i) < min3 Then min3 = C(i)
Next i
Cells(11, 1) = "Min= " & min1
Cells(13, 2) = "Min= " & min2
Cells(9, 3) = "Min= " & min3
max = min1
If min2 > max Then max = min2
If min3 > max Then max = min3
MsgBox max
End Sub

@smiletimes 0 / 0 / 0 Регистрация: 13.06.2010 Сообщений: 10
		1
	Найти максимальный элемент в каждом массиве и максимальный среди них 25.06.2010, 10:37. Показов 2377. Ответов 1 Метки нет (Все метки) помогите пожалуйста решить!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Даны три массива А(10),В(12),С(8). Найти максимальный элемент в каждом массиве и максимальный среди них. 0

	25.06.2010, 11:31

Опции темы

Найти максимальный элемент в каждом массиве и максимальный среди них

Решение