Создать массив Р по формуле и определить его максимальный элемент - VB
Формулировка задачи:
В заданном массиве Е (14) есть несколько нулевых элементов. Создать массив Р по формуле Р (и) = Е (и) - Е (и - 1), где i = 2,3, ..., 14 и определить максимальный элемент массива. В массиве Е нулевые элементы заменить значение максимального элемента массива Р. вывести массив Р, его максимальный элемент и преобразован массив Е.
Решение задачи: «Создать массив Р по формуле и определить его максимальный элемент»
textual
Листинг программы
Private Sub Command1_Click() Dim e(1 To 14), p(2 To 14) t1 = "" t2 = "" Max = -99 For i = 1 To 14 e(i) = Int(Rnd() * 30 - 20) If e(i) < -10 Then e(i) = 0 t1 = t1 & e(i) & " " If i > 1 Then p(i) = e(i) - e(i - 1) If p(i) > Max Then Max = p(i) t2 = t2 & p(i) & " " End If Next Text1 = t1 Text2 = t2 Text3 = Max t1 = "" For i = 1 To 14 If e(i) = 0 Then e(i) = Max t1 = t1 & e(i) & " " Next Text4 = t1 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д