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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 04.10.2017, 14:36   #1
Luсifer
 
Регистрация: 26.09.2017
Сообщений: 9
Печаль Дано N чисел надо определить номер минимального

Дано N чисел надо определить номер миниямального?


памагите не могу верно решить задачу


___________________________________ ____________________
Название темы не соответствует правилам форума
Название темы должно адекватно отражать суть решаемой задачи/проблемы!

Учтите это в следующий раз.

Модератор

Последний раз редактировалось Serge_Bliznykov; 04.10.2017 в 15:06.
Luсifer вне форума Ответить с цитированием
Старый 04.10.2017, 14:40   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

В чем проблема? Какие ошибки выдает компилятор?
p51x вне форума Ответить с цитированием
Старый 04.10.2017, 14:52   #3
Luсifer
 
Регистрация: 26.09.2017
Сообщений: 9
По умолчанию

Код не успел еще залить через 15 мин будет
Luсifer вне форума Ответить с цитированием
Старый 04.10.2017, 16:24   #4
Luсifer
 
Регистрация: 26.09.2017
Сообщений: 9
По умолчанию

Код:
program pp;

var
  c, i, N: integer;
  max, R:real;
begin
  write('сколько чисел');
  read(n);
  c := 1;
  write('задай число');
  read(max);
  for i := 2 to N do
  begin
    write('задай число');
    read(R);
    if R > max then
    begin
      max := R; 
      c := 0;
    end;
    if c= max then c := i;
  
  end;
  write('Ответ=', c);
end.
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 04.10.2017 в 16:35.
Luсifer вне форума Ответить с цитированием
Старый 04.10.2017, 16:39   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

это Ваш код или чужой?

впрочем, вот решение:

Код:

program pp;

var
  index_min, i, N: integer;
  min, R:real;
begin
  write('сколько чисел');
  readLn(n);
  index_min := 1;
  write('задай число');
  readLn(min);
  for i := 2 to N do
  begin
    write('задай число: ');
    readLn(R);
    if R < min then
    begin
      min := R; 
      index_min := i;
    end;
  end;
  write('Ответ: номер минимального числа = ', index_min);
end.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
- Задана прямоугольная матрица N*M. Определить номер минимального элементами. DBrooklyn Паскаль, Turbo Pascal, PascalABC.NET 1 15.12.2016 22:09
C# Дано натуральное число. Определить порядковый номер его минимальной цифры, считая номера от конца числа. ZeroZero Помощь студентам 1 18.10.2016 22:32
Дана последовательность из n целых чисел. Найти номер минимального элемента в этой последовательности (на Pascal) Nata111 Помощь студентам 3 16.12.2013 20:11
Дана последовательность из n действительных чисел. Найти номер первого минимального элемента. d_dima Помощь студентам 2 19.03.2013 10:48
вычислить порядковый номер числа наиболее приближенного к среднему арифметическому максимального и минимального чисел данной посл мария71 Помощь студентам 2 14.02.2012 16:24