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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 14.12.2013, 18:16   #1
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
По умолчанию Дана последовательность из n целых чисел. Найти номер минимального элемента в этой последовательности (на Pascal)

Помогите, пожалуйста, составить программу на Pascal.
Дана последовательность из n целых чисел. Найти номер минимального элемента в этой последовательности.
Не пойму как обозначить в условии номер минимального элемента, мы просто только сумму, количество и произведение проходили.
Nata111 вне форума Ответить с цитированием
Старый 14.12.2013, 18:49   #2
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,568
По умолчанию

1. Предположить, что номер минимального элемента равен 1.
2. Начиная со второго элемента просмотреть все элементы массива.
3. Если какой-то элемент окажется меньше минимального, то минимальным элементом становится именно этот. Так же вам потребуется запомнить номер этого элемента, а не только его самого.
Вадим Мошев вне форума Ответить с цитированием
Старый 15.12.2013, 02:12   #3
ogamilait
Пользователь
 
Регистрация: 09.11.2013
Сообщений: 60
По умолчанию

Цитата:
Сообщение от Nata111 Посмотреть сообщение
Помогите, пожалуйста, составить программу на Pascal.
Дана последовательность из n целых чисел. Найти номер минимального элемента в этой последовательности.
Не пойму как обозначить в условии номер минимального элемента, мы просто только сумму, количество и произведение проходили.
Код:
const
  n=100;
var
  i,min:integer;
  a:array[1..n] of integer;
begin
  // Подключаем рандом
  randomize;
  // Заполнение массива случайными числами
  for i:=1 to n do
    a[i]:=random(200);
  // Первый елемент масива будет точкой отщота
  min:=a[1];
  // Перебираем все числа масива
  for i:=2 to n do
  begin
    if min > a[i] then 
      min:=a[i];
  end;
  // Выводим минимум
  writeln('Минимальное число: ',min);
end.
ogamilait вне форума Ответить с цитированием
Старый 16.12.2013, 20:11   #4
Nata111
 
Регистрация: 04.11.2013
Сообщений: 7
По умолчанию

БОЛЬШУЩЕЕ, ОГРОМНЕЙШЕЕ СПАСИБО!!!
Nata111 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дана последовательность из n действительных чисел. Найти номер первого минимального элемента. d_dima Помощь студентам 2 19.03.2013 10:48
Дана последовательность ненулевых целых чисел,оканчивающая нулем.Определить,сколько раз в этой последовательности меняеться знак.( Salomon9393 Помощь студентам 0 07.12.2012 18:59
Дана последовательность из n целых чисел. Найти сумму нечетных элементов этой последовательности.С++ punkvalera Помощь студентам 1 13.05.2012 20:35
Дана последовательность целых чисел за которой следует 0.Найти номер максимального элемента в этой последовательности. Da Magic Помощь студентам 3 22.11.2011 23:08
С\С++ Дана последовательность чисел. Найти количество различных чисел в этой последовательности yuliyayuliya Помощь студентам 1 14.04.2011 06:30