Составить программу замены местами в массиве b(n) первого отрицательного и максимального элементов

@Tina1134 · Регистрация: 14.10.2012

@Quiet Snow · 23.10.2012, 22:24

Ввод с клавиатуры, массив целочисленный:

QBasic/QuickBASIC

DEFINT A-Z
 CLS
 INPUT "Kol-vo elementov: ", n
DIM b(1 TO n)
FOR i = 1 TO n
   PRINT "  Vvedite element N" + CHR$(248); i;
   INPUT ": ", b(i)
NEXT
mx = b(1): mxi = 1
FOR i = 1 TO n
   IF b(i) > mx THEN mx = b(i): mxi = i
   IF b(i) < 0 AND f = 0 THEN ni = i: f = 1
NEXT
SWAP b(ni), b(mxi)
FOR i = 1 TO n
   PRINT b(i);
NEXT

@Tina1134 0 / 0 / 0 Регистрация: 14.10.2012 Сообщений: 13
		1
	Составить программу замены местами в массиве b(n) первого отрицательного и максимального элементов 23.10.2012, 21:21. Показов 1584. Ответов 1 Метки нет (Все метки) Составить программу замены местами в массиве b(n) первого отрицательного и максимального элементов __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составить программу замены местами в массиве b(n) первого отрицательного и максимального элементов

Решение