Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Наибольшее число в последовательности и его размещение |
| Kolyancz |
 
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация:  0   |
Задана последовательность N чисел. N<=1000. Найдите наибольшее число в этой последовательности и укажите на какой позиции оно находится. Если число повторяется, то указать все его позиции.
Например: для последовательности 569 3 567 94 569 219 546 Ответ: 569 1 5 Впорос: как выглядит функция определения наибольшего числа и расчета его размещений? |
   |
 
|
  |
| Ozzя |
Сообщение
#2
|
 Гуру Группа: Пользователи Сообщений: 1 220 Пол: Мужской Репутация: 16 |
Последовательность как хранится? В массиве? Или массивы использовать нельзя?
|
|
|
|
| Kolyancz |
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 18 Пол: Мужской Репутация: 0 |
Цитата(Ozzя @ 9.12.2008 15:35)  Последовательность как хранится? В массиве? Или массивы использовать нельзя? В массиве. |
|
|
|
Kolyancz Наибольшее число в последовательности и его размещение 9.12.2008 21:18
amega один из ваирантов;
var a,b:array [1..7] of integ… 9.12.2008 23:09 volvo Это можно сделать за один проход по основной после… 9.12.2008 23:13 amega тогда поменять прото начальное max:=0;
а можеш вы… 9.12.2008 23:34 volvo :) Тогда не отработает, если все числа - меньше ч… 9.12.2008 23:37 amega смотри а если у нас 1ий елент максимальный И он … 9.12.2008 23:51 Айра if a[i] = max then begin
inc(j); //а вот э… 10.12.2008 0:24 amega а, ну да недогледел чуть-чуть :!yessir: 10.12.2008 1:52
Kolyancz Да, все правильно. Вот полное решение, всем спасиб… 10.12.2008 19:00 |
|
Текстовая версия | 5.11.2025 16:00 |
