Найти максимальный элемент массива - VB
Формулировка задачи:
помогите написать программу по бэйсику на одномерные массивы: Дан массив содержащий 15 элементов, получить новый, каждый элемент которого - разность квадрата и основания соответствующего элемента исходного массива.
в новом массиве найти максимум
Результат распечатать в виде :
Исход массив :
новый массив :
MAX :
заранее спасибо
Решение задачи: «Найти максимальный элемент массива»
textual
Листинг программы
- Sub task(A() as integer)
- Dim B(1 to 15) As integer
- '::: Новый массив:
- for i%=1 to 15
- B(i%)=A(i%)*A(i%)-10
- next i%
- '::: Максимум
- Bmax%=B(1)
- For i%=2 to 15
- if B(i%) > Bmax% then BMax%=B(i%)
- next i%
- '::: Печать:
- Debug.print "Исходный массив:"
- for i%=1 to 15
- Debug.print "A(";i%;")=";A(i%)
- Next i%
- Debug.print "Новый массив:"
- for i%=1 to 15
- Debug.print "B(";i%;")=";B(i%)
- Next i%
- Debug.Print "MAX=";Bmax%
- End sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
