Как определить наибольшее/наименьшее число в заданном массиве

@Petro29 · Регистрация: 30.04.2016

Студворк — интернет-сервис помощи студентам

Ребята, помогите. Как определить наибольшее/наименьшее число в заданном массиве, чтобы его определяла программа, а не пользователь, без использования сортировки.

И еще такой вопрос, как разместить результаты цикла в 2 столбика? С оператором LOCATE не получается.

Скриншоты кода прилагаю

@Petro29 · 30.04.2016, 11:09 **[ТС]**

Скриншоты экрана

echs · 30.04.2016, 14:38

Эта программа находит и минимум и максимум одновременно.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
CLS
RANDOMIZE TIMER
CONST n = 10
DIM A(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   A(i) = 50 * RND - 20
   PRINT A(i);
NEXT i
PRINT : PRINT
 
max = A(1)
min = A(1)
 
FOR i = 2 TO n
   IF max < A(i) THEN max = A(i)
   IF min > A(i) THEN min = A(i)
NEXT i
PRINT "MAX ="; max
PRINT "MIN ="; min
END

Пример кода на размещение данных цикла в два столбца

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
CLS
FOR i = 1 TO 20
   IF i <= 10 THEN
      LOCATE i, 1
      PRINT i
   ELSE
      LOCATE i - 10, 10
      PRINT i
   END IF
NEXT i
END

@Petro29 · 14.05.2016, 21:03 **[ТС]**

Вопрос был про Фому, а ответ получили про Ерему. Была конкретная программа с заполнением одномерного массива 10ю элементами оператором DATA READ и последующим его преобразованием. Это программа со стр.165 из книги "!Изучаем программирование " автор Тимофеевская М., 2004 год. К тому же ваши коды непонятно откуда взяты. Оператора окончания END в Vbasic и Qbasic нет. Randomize timer оператор из Vbasic, а не из Qbasic.Хотелось бы получить решение по приведенной конкретной программе

@Pro_grammer · 15.05.2016, 06:18

Сообщение от Petro29

Оператора окончания END в Vbasic и Qbasic нет. Randomize timer оператор из Vbasic, а не из Qbasic.

Да вы знаток, однако!

@vodav · 15.05.2016, 07:41

Не по теме:

Pro_grammer, попробуйте изыскать возможность увековечить на форуме изречение сего автора. Людям должно понравиться.

@Petro29 · 15.05.2016, 10:39 **[ТС]**

Вы повеселились?
А на конкретный вопрос не ответили! Не хотите или не знаете?

echs · 15.05.2016, 10:59

Petro29
Вы, пожалуйста, не обижайтесь на ребят потому что
Вы написали глупость. И ближе к делу. Ваш скриншот
нечитабелен! Напишите задание текстом. Понимаете,
Ваше задание потому никто не взялся делать, что
Самого задания нет. Скриншот НЕЧИТАБЕЛЕН!

@Petro29 · 15.05.2016, 11:38 **[ТС]**

Хорошо, не в обиду) напечатаю и пришлю чуть позже

@Petro29 · 19.05.2016, 13:54 **[ТС]**

«Знаток» приносит свои извинения за то, что в книге Тимофеевской не узрел операторы Randomize и End. Эта книга изучалась два года назад и программа «Жизнь» (на тему Моделирование) – где использованы эти операторы – не заитересовала в то время меня, поэтому эта программа стёрлась из памяти (у меня ведь память не в гБ, как у вас, а в кБ))))) Увы, не получилось. Жаль!

Добавлено через 43 секунды
Вопрос: можно ли сделать из одного столбца двух циклов два столбца рядом?

Задание из книги: ИЗУЧАЕМ ПРОГРАММИРОВАНИЕ автор Тимофеевская, 2003 год.
Заполнить одномерный массив из 10 элементов положительными и отрицательными числами,найти и напечатать наименьший элемент массива, указав его индекс. Каждый положительный элемент массива уменьшить на 2 и напечатать новые значения элемен- тов массива. Напечатать суммы массивов.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
CLS
DIM A(10)
DATA 5, 6, -9, -5,  2, -16, -7, 0, 11, 8
FOR I = 1 TO 10
   READ A(i)
   PRINT “ A(“ ;  i;  “) =  “ ; A(i)
       S = S + A(i)
NEXT i
   PRINT “  Сумма исходного массива:  “ ;  S
   PRINT  “ “
   PRINT  “  min эл-т массива:  A  (“ ;  6;  “) = -16 “
FOR I = 1 TO 10
 
   IF  A(i)  >  0  THEN   A(i) = A(i) – 2
   PRINT  “  A(“ ;  I ;  “)  =  “ ;  A(i)
        S1 = S1 + A(i)
NEXT i
PRINT  “  Сумма изменённого массива:  “ ;  S1

Вывод на экран:

A ( 1 ) = 5
A ( 2 ) = 6
A ( 3 ) = -9
A ( 4 ) = -5
A ( 5 ) = 2
A ( 6 ) = -16
A ( 7 ) = -7
A ( 8 ) = 0
A ( 9 ) = 11
A ( 10 ) = 8
Сумма исходного массива: -5
min эл-т массива: A ( 6 ) = -16
Изменённый массив.
A ( 1 ) = 3
A ( 2 ) = 4
A ( 3 ) = -9
A ( 4 ) = -5
A ( 5 ) = 0
A ( 6 ) = -16
A ( 7 ) = -7
A ( 8 ) = 0
A ( 9 ) = 9
A ( 10 ) = 6
Сумма изменён. массива: -22

Добавлено через 2 минуты
В книге Тимофеевской на стр. 159 есть программа, в которой имеется фрагмент по определению max и min из пяти строк, не считая исходных данных массива. Даёт верный результат, хотя смысл её тоже не понятен: «новой переменной Р присваивается значение 1-го элемента массива и из условия, что эта переменная Р меньше любого элемента массива, делается вывод, что P ( i ) и есть max.
Интересно, но не понятно. И ведь получается.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
CLS
DIM (10)
DATA 5, 6, -9, -5, 2, -16, -7, 0, 11, 8
FOR I = 1 TO 10
     READ A ( i )
     PRINT  A ( i )
NEXT
     P = A ( i )
   FOR I = 1 TO 10
     IF  P  <  A ( i )   THEN   P = A ( i )
NEXT i
PRINT  “  Максимальное число:  “ ;  P

Вывод на экран

5, 6, -9, -5, 2, -16, -7, 0, 11, 8
Максимальное число: 11

Вопрос: А может есть более понятная программа на эту тему?
Да и вообще, какой смысл определять max и min, если они задаются?

echs · 19.05.2016, 14:15

Petro29
1. В ваш код в последнем цикле надо перед оператором PRINT
вставить оператор LOCATE i, 20 (число 20 означает с какой
позиции будет печататься второй столбец)
2. Перед самым последним оператором PRINT поставьте оператор
LOCATE 11, 20
3. примечание:
Вы написали в коде строку
PRINT “ min эл-т массива: A (“ ; 6; “) = -16 “
Это не пройдет!! Должно быть так.
PRINT “ min эл-т массива: A (6) = -16 “
понимаете, число 6 - это просто число и выносить его
из кавычек нельзя (подобное делается только для
переменных)

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732

	Как определить наибольшее/наименьшее число в заданном массиве 30.04.2016, 11:05. Показов 3271. Ответов 10 Метки нет (Все метки) Ребята, помогите. Как определить наибольшее/наименьшее число в заданном массиве, чтобы его определяла программа, а не пользователь, без использования сортировки. И еще такой вопрос, как разместить результаты цикла в 2 столбика? С оператором LOCATE не получается. Скриншоты кода прилагаю 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	30.04.2016, 11:09 [ТС]
	Скриншоты экрана Миниатюры 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	14.05.2016, 21:03 [ТС]
	Вопрос был про Фому, а ответ получили про Ерему. Была конкретная программа с заполнением одномерного массива 10ю элементами оператором DATA READ и последующим его преобразованием. Это программа со стр.165 из книги "!Изучаем программирование " автор Тимофеевская М., 2004 год. К тому же ваши коды непонятно откуда взяты. Оператора окончания END в Vbasic и Qbasic нет. Randomize timer оператор из Vbasic, а не из Qbasic.Хотелось бы получить решение по приведенной конкретной программе 0

@vodav
	15.05.2016, 07:41
	Не по теме: Pro_grammer, попробуйте изыскать возможность увековечить на форуме изречение сего автора. Людям должно понравиться. 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	15.05.2016, 10:39 [ТС]
	Вы повеселились? А на конкретный вопрос не ответили! Не хотите или не знаете? 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	15.05.2016, 10:59
	Petro29 Вы, пожалуйста, не обижайтесь на ребят потому что Вы написали глупость. И ближе к делу. Ваш скриншот нечитабелен! Напишите задание текстом. Понимаете, Ваше задание потому никто не взялся делать, что Самого задания нет. Скриншот НЕЧИТАБЕЛЕН! 0

@Petro29 198 / 10 / 3 Регистрация: 30.04.2016 Сообщений: 732
	15.05.2016, 11:38 [ТС]
	Хорошо, не в обиду) напечатаю и пришлю чуть позже 0

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	19.05.2016, 14:15
	Petro29 1. В ваш код в последнем цикле надо перед оператором PRINT вставить оператор LOCATE i, 20 (число 20 означает с какой позиции будет печататься второй столбец) 2. Перед самым последним оператором PRINT поставьте оператор LOCATE 11, 20 3. примечание: Вы написали в коде строку PRINT “ min эл-т массива: A (“ ; 6; “) = -16 “ Это не пройдет!! Должно быть так. PRINT “ min эл-т массива: A (6) = -16 “ понимаете, число 6 - это просто число и выносить его из кавычек нельзя (подобное делается только для переменных) 0

Как определить наибольшее/наименьшее число в заданном массиве

Решение