Даны последовательность вещественных чисел и число n.Найти элемент последовательности(его порядковый номер и значение,ближайшее к n)- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
INPUT "vvedite kolichestvo elementov N ", m
INPUT "vvedite chislo n ", n
DIM a(m)
FOR i = 1 TO m
    INPUT "vvedite element ", a(i)
NEXT
PRINT "massiv"
FOR i = 1 TO m
    PRINT a(i);
NEXT
PRINT
min = 1E+38
FOR i = 1 TO m
    IF ABS(a(i) = n) < min THEN min = ABS(a(i) - n): t = a(i): nomer = i
NEXT
PRINT "blijajshiy element="; t; " ego nomer="; nomer

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment