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

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

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

Leave a Comment