Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу

@malabar · Регистрация: 12.12.2012

Дано 10 вещественных чисел. Найти порядковый номер
того из них, которое наиболее близко к целому числу.

@m-ch · 12.12.2012, 10:11

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
FOR i = 1 TO 10
    'INPUT a
    a = RND * 100
    PRINT i; ":"; a
    IF i = 1 OR m > ABS(a - INT(a + .5)) THEN m = ABS(a - INT(a + .5)): j = i
NEXT
PRINT "Blizhayshee k celomu #"; j

@malabar 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 11
		1
	Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу 12.12.2012, 09:15. Просмотров 999. Ответов 1 Метки нет (Все метки) Дано 10 вещественных чисел. Найти порядковый номер того из них, которое наиболее близко к целому числу. 0

Опции темы

Найти порядковый номер того числа вещественного массива, которое наиболее близко к целому числу

Решение