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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.06.2011, 22:38   #1
Абай
Пользователь
 
Регистрация: 31.05.2011
Сообщений: 19
По умолчанию Минимумы и максимумы

Minmax11. Дано целое число N и набор из N целых чисел. Найти номер
последнего экстремального (то есть минимального или максимального)
элемента из данного набора.
Абай вне форума Ответить с цитированием
Старый 13.06.2011, 22:42   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Проблема-то в чем? Ищите минимум и максимум и смотрите какой из них дальше стоит (удобнее всего с помощью массива).
Хоть бы что-то сделали, кроме копипаста 10050 заданий в день.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 13.06.2011, 22:49   #3
Pein95
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 881
По умолчанию

лан напишу... только часть)
Код:
var
a:array [1..n] of integer;
i:integer;
min:integer;
begin
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
end.
ну вот ето поиск мин. елемент аналогично мах елемент. а все иное подумайте здесь все просто)
Pein95 вне форума Ответить с цитированием
Старый 13.06.2011, 22:55   #4
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 530
По умолчанию

Код:
const
  n = #;

var
  i, imax, imin: integer;
  m: array [1..n] of integer;
begin
  {...}
  imin := 1;
  imax := 1;
  for i := 1 to n do 
  begin
    if m[i] < m[imin] then imin := i;
    if m[i] > m[imax] then imax := i;
  end;
  if imin > imax then write(m[imin])
  else write(m[imax]);
end.
вот почти готовый код... чуток доделать осталось
unbanned вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Матрица. Отсортировать максимумы по убыванию в матрицеб а минимумы по возрастаниюю Tifa Паскаль, Turbo Pascal, PascalABC.NET 6 24.01.2012 22:36
ОТСОРТИРОВАТЬ максимумы по убыванию в матрице,а минимумы по возрастанию YooooO!!! Паскаль, Turbo Pascal, PascalABC.NET 1 22.01.2011 14:21
минимумы и максимумы Delphin-666 Общие вопросы Delphi 9 15.06.2010 09:07
Найти максимумы Alisa19 Помощь студентам 0 28.04.2010 19:08
Локальные минимумы и их номера. f4rr3l Паскаль, Turbo Pascal, PascalABC.NET 5 06.01.2009 21:51