Найти максимальный и минимальный элементы массива D и поменять их местами - VB

Формулировка задачи:

найти максимальный и минимальный элементы массива D и поменять их местами d(80) помогите плиз)

Код к задаче: «Найти максимальный и минимальный элементы массива D и поменять их местами - VB»

textual
min=1
max=1
for i=2 to 80
  if d(i) < d(min) then min=i
  if d(i) > d(max) then max=i
next i
tmp=d(min)
d(min)=d(max)
d(max)=tmp

14   голосов, оценка 3.786 из 5


СОХРАНИТЬ ССЫЛКУ