Найти минимальный элемент массива

@Djinn · Регистрация: 04.02.2013

Среди 5-ти элементов найти минимальные и вывести на экран их модули

@Quiet Snow · 13.02.2013, 05:20

Среди 5-ти элементов найти минимальные и вывести на экран их модули

Сколько? Прога на один минимальный:

QBasic/QuickBASIC

DATA 1, 2, 4, -3, 0
  CLS
  FOR i = 1 TO 5
     READ E
     IF i = 1 THEN Min = E
     IF E < Min THEN Min = E
  NEXT
PRINT "Min ="; Min
PRINT "Abs ="; ABS(Min)

@Djinn 0 / 0 / 0 Регистрация: 04.02.2013 Сообщений: 4
		1
	Найти минимальный элемент массива 12.02.2013, 17:26. Показов 1116. Ответов 1 Метки нет (Все метки) Среди 5-ти элементов найти минимальные и вывести на экран их модули 0

Опции темы

Найти минимальный элемент массива

Решение