Есть вопрос |
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
Есть вопрос |
Гость_Чайник |
Сообщение
#1
|
Гость |
Существует ли какая нибудь функция для нахождения максимального элемента из нескольких элементов заданных пользователем.
|
volvo |
Сообщение
#2
|
Гость |
Гость_Чайник
Готовой нет, но кто мешает написать? Просто пишем функцию нахождения макс. элемента массива и передаем в нее "элементы заданные пользователем" как массив... |
mithquessir |
Сообщение
#3
|
Гость |
Гость_Чайник
Примерно так: Код const maxn = 1000; n = 5; var a:array[1..maxn] of integer; i,num:integer; function Max_(b:array of integer):integer; {функция определения максимального введенного числа} var i,max:integer; begin max := -maxint; for i := 1 to num do if b[i] > max then max := b[i]; Max_ := max; end; begin WriteLn('Сколько элементов вы хотите ввести?'); ReadLn(num); for i := 1 to num do begin Write('Введите ',i,'-й элемент'); Read(a[i]); {занесем введенные числа в массив} end; WriteLn(Max_(a)); end. |
Текстовая версия | 16.05.2024 19:44 |