Дан массив состоящий из 17 элементов. Найти индекс элементов массива, наиболее близкого к данному числу- Basic(Бейсик)

disel

результат распечатать в виде:

  • масив
  • заданое число
  • элемент
  • индекс.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DIM a(17)
RANDOMIZE TIMER
FOR i = 1 TO 17
a(i) = INT(RND * 20) - 10
NEXT
INPUT "vvedite chislo ", n
PRINT "ishodnyj massiv"
FOR i = 1 TO 17
PRINT a(i); " ";
NEXT
PRINT
PRINT "chislo="; n
min = ABS(n - a(1))
nmin = 1
FOR i = 1 TO 17
IF ABS(n - a(i)) < min THEN min = ABS(n - a(i)): nmin = i
NEXT
PRINT "blizkiy element="; a(nmin)
PRINT "ego nomer="; nmin

Похожие записи/страницы:

Leave a Comment