{* Задача326 *}

REM basic

' Организуйте массив. Поменяйте местами элементы с максимальным и минимальным значениями.


CLS
n = 10
Dim a(n)
RANDOMIZE TIMER
maxc = 0
minc = 100
PRINT "Исходный массив: "
For i = 1 To n
  a(i) = INT(RND * 100)
  If a(i) > maxc Then maxc = a(i): tempmx = i
  If a(i) < minc Then minc = a(i): tempmn = i
  PRINT a(i);
Next
SWAP a(tempmx), a(tempmn)
PRINT ""
PRINT "Полученный массив: "
For i = 1 To n
  PRINT a(i);
Next
End