Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


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

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

Проблема-то в чем? Ищите минимум и максимум и смотрите какой из них дальше стоит (удобнее всего с помощью массива).
Хоть бы что-то сделали, кроме копипаста 10050 заданий в день.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 13.06.2011, 21: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, 21:55   #4
unbanned
Форумчанин
 
Аватар для unbanned
 
Регистрация: 23.11.2010
Сообщений: 528
По умолчанию

Код:
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 вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Скидки на курсы GeekBrains 40%, выбирайте программу для себя