Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Работа для программиста > Фриланс
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.03.2010, 12:43   #1
Сергеич59
Новичок
Джуниор
 
Регистрация: 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.

Вот помимо вывода их всех на экран и нахождения их суммы нужно найти еще самое большее и меньшее. Заранее благодарен за помощь.
Сергеич59 вне форума Ответить с цитированием
Старый 10.03.2010, 12:57   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Вы серьезно или издеваетесь?

Под последовательными числами понимается, например: 1,2,3,4... ? Думать даже не надо.

Массив? Практически тоже... Максимум: Текущий максимум = первому элементу массива. Начиная со второго и до конца массива искать больший, чем текущий максимум. Нашли - текущий максимум присвоить найденному и идти дальше. Минимум аналогично.
p51x на форуме Ответить с цитированием
Старый 10.03.2010, 13:07   #3
fenix-elite
Пользователь
 
Аватар для fenix-elite
 
Регистрация: 02.11.2008
Сообщений: 75
По умолчанию

p51x. Судя по тому, сколько таких вопросов на форуме, то наверное они на полном не знают как сделать =))

Сергеич59, последовательность какая? просто 1 до n, с шагом в 1?? Или случайная? Как задается? Можно ли массив использовать? Если с массивами то вот так делай:

Код:
var
 i,temp:integer;
 m:array [1..n] of integer;
begin
 temp:=m[1];
 for i:=2 to n do 
  if temp>m[i] then temp:=m[i];
 write(temp);
end.
Максимальный так же ищи

P.S Что с тэгами?? Оо

С тэгами все норм...
Правила:
==Халявщики будут моментально переправлены в раздел "Фриланс"==
«Когда ты действительно чего-то хочешь, вся Вселенная помогает тебе осуществить твою мечту».(с) Пауло Коэльо

Последний раз редактировалось mihali4; 10.03.2010 в 13:11.
fenix-elite вне форума Ответить с цитированием
Старый 10.03.2010, 15:39   #4
helpprogram
 
Регистрация: 03.03.2010
Сообщений: 4
По умолчанию

Пиши, сделаем в лучшем виде.
ICQ 491 - 901 - 645.
helpprogram@mail.ru
helpprogram вне форума Ответить с цитированием
Старый 10.03.2010, 16:07   #5
airyashov
Форумчанин
 
Регистрация: 02.04.2008
Сообщений: 358
По умолчанию

помогу недорого
неплохо пишу на ассемблере для 80х86
icq: 3(один)7748666
mail: airyashov(а)inbox.ru
airyashov вне форума Ответить с цитированием
Старый 10.03.2010, 18:47   #6
semenovmixan
Заблокирован
 
Регистрация: 08.01.2010
Сообщений: 0
По умолчанию

Готов взяться за проект
номер ICQ: 565460353 или 480964456
mikefreelance@rambler.ru
semenovmixan вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
эксель. найти максимальное и минимальное значение функции 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