|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.03.2010, 12:43 | #1 |
Новичок
Джуниор
Регистрация: 10.03.2010
Сообщений: 0
|
Максимальное и минимальное число из любой последовательности чисел
Здравствуйте, уважаемые форумчане! Как найти максимальное и минимальное числа из любого количества последовательных чисел?
program h; var x,N,a,S:integer; begin writeln ('количество чисел'); readln(N); S:=0; for x:=1 to N do begin writeln ('любые числа'); readln(a); S:=S+a; end; writeln ('S=',S); readln end. Вот помимо вывода их всех на экран и нахождения их суммы нужно найти еще самое большее и меньшее. Заранее благодарен за помощь. |
10.03.2010, 12:57 | #2 |
Старожил
Регистрация: 15.02.2010
Сообщений: 15,760
|
Вы серьезно или издеваетесь?
Под последовательными числами понимается, например: 1,2,3,4... ? Думать даже не надо. Массив? Практически тоже... Максимум: Текущий максимум = первому элементу массива. Начиная со второго и до конца массива искать больший, чем текущий максимум. Нашли - текущий максимум присвоить найденному и идти дальше. Минимум аналогично. |
10.03.2010, 13:07 | #3 |
Пользователь
Регистрация: 02.11.2008
Сообщений: 75
|
p51x. Судя по тому, сколько таких вопросов на форуме, то наверное они на полном не знают как сделать =))
Сергеич59, последовательность какая? просто 1 до n, с шагом в 1?? Или случайная? Как задается? Можно ли массив использовать? Если с массивами то вот так делай: Код:
P.S Что с тэгами?? Оо С тэгами все норм... Правила: ==Халявщики будут моментально переправлены в раздел "Фриланс"==
«Когда ты действительно чего-то хочешь, вся Вселенная помогает тебе осуществить твою мечту».(с) Пауло Коэльо
Последний раз редактировалось mihali4; 10.03.2010 в 13:11. |
10.03.2010, 15:39 | #4 |
Регистрация: 03.03.2010
Сообщений: 4
|
Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.
helpprogram@mail.ru
|
10.03.2010, 16:07 | #5 |
Форумчанин
Регистрация: 02.04.2008
Сообщений: 358
|
помогу недорого
неплохо пишу на ассемблере для 80х86
icq: 3(один)7748666 mail: airyashov(а)inbox.ru |
10.03.2010, 18:47 | #6 |
Заблокирован
Регистрация: 08.01.2010
Сообщений: 0
|
Готов взяться за проект
номер ICQ: 565460353 или 480964456 mikefreelance@rambler.ru |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
эксель. найти максимальное и минимальное значение функции | alex(21) | Помощь студентам | 2 | 07.03.2010 12:22 |
excel Определить максимальное и минимальное значение длины слов в таблице | Nibbler | Помощь студентам | 0 | 05.12.2009 22:42 |
Минимальное число | Progs1024 | Паскаль, Turbo Pascal, PascalABC.NET | 14 | 11.10.2009 21:21 |
Определить k-ую цифру последовательности Фибоначчи и последовательности натуральных чисел. | Med | Помощь студентам | 1 | 20.03.2009 11:40 |
Определить максимальное/минимальное значение функции y=f(x) | astrozombie | Помощь студентам | 2 | 16.02.2009 13:52 |