Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Не добавляется модуль https://www.cyberforum.ru/ delphi-beginners/ thread328955.html
Не судите строго... так как я только осваиваю Дельфи (до этого С++)... Начал недавно ковырять одну прогу и столкнулся с проблемой подключения новых модулей.... начну попорядку... Сама прога ...
Listview текст в несколько строк Delphi
В общем такое дело необходимо в listview (ViewStyle:=vsReport) в один итем загнать несколько строчек текста чтоб было примерно как в AIMP2 где под названием мелодии указываеться её битрейт,размер и...
Запись в файл и считывание Delphi
Доброго времени суток!! У мене возник такой вопрос: у меня есть тип :inf= record firm:string; shyfr:integer; ...
Delphi Добавить строку в файл Блин, совсем из головы все повылетало. есть следующее: type TSpravTkan = packed record Number: Integer; Name: String; end; ... var SpravTkan: TSpravTkan; https://www.cyberforum.ru/ delphi-beginners/ thread328927.html
Delphi Описать процедуру AddRightDigit(D, K) https://www.cyberforum.ru/ delphi-beginners/ thread328918.html
Нужно в Delphi описать процедуру AddRightDigit(D, K), добавляющую к целому положительному числу K справа цифру D (D — входной параметр целого типа, лежащий в диапазоне 0–9, K — параметр целого...
Delphi Считывание массива из Edit
Ситуация такая - Пользователь должен ввести элемент вектора в Edit1 и после нажатия Button1 этот элемент должен быть выведен в Memo1 и добавлен в одномерный массив. После необходимо еще работать с...
Delphi построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)
как сделать??? построить массив A = (ai) элементы которого задаются формулой: аі=(1+1/2+...+1/і)/ і!, (і=1,2,...,n)
Delphi крестики-нолики написал крестики-нолики,но не работает,так сказать "интелект"(он выражен в подпрограмме opas) при таком варианте как у меня сейчас,он иногда не ставит нолик вообще,если opas не испольщовать,то ход... https://www.cyberforum.ru/ delphi-beginners/ thread328866.html
Delphi delphi-компоненты https://www.cyberforum.ru/ delphi-beginners/ thread328865.html
обясните как написать... используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи. если введена последовательность чисел образует арифметическую прогрессию, то...
Delphi Максимально значение среди четных до первого нечетного Задан целочисленный массив a из n строк и m столбцов. Найти значение максимального элемента среди четных (по значению) элементов,расположенных до первого нечетного элемента. Матрицу расматривать по... https://www.cyberforum.ru/ delphi-beginners/ thread328846.html
13065 / 5851 / 1705
Регистрация: 19.09.2009
Сообщений: 8,807
03.07.2011, 00:40 0

Найти номера первого и последнего минимального элемента из данного набора

03.07.2011, 00:40. Просмотров 1711. Ответов 11
Метки (Все метки)

Ответ


Можно решать так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
procedure TForm1.Button1Click(Sender: TObject);
const
  M = 15;
var
  Arr : array[1..M] of Integer;
  i, IMin1, IMin2 : Integer;
begin
  //Заполнение массива.
  //...
  //...
  //...
 
  //Решение задачи.
  IMin1 := 1;
  IMin2 := 0;
  for i := 2 to M do begin
    if Arr[i] < Arr[IMin1] then begin
      IMin1 := i;
      IMin2 := 0;
    end else if Arr[i] = Arr[IMin1] then begin
      IMin2 := i;
    end;
  end;
 
  if IMin2 = 0 then begin
    Memo1.Lines.Add('В массиве только один минимальный элемент. Его индекс: ' + IntToStr(IMin1));
  end else begin
    Memo1.Lines.Add('Индекс первого минимального элемента: ' + IntToStr(IMin1));
    Memo1.Lines.Add('Индекс последнего минимального элемента: ' + IntToStr(IMin2));
  end;
end;
Можно в код добавить ввод количества значащих элементов массива - N. N можно вводить через Edit. И заполнение массива надо добавить.

Вернуться к обсуждению:
Найти номера первого и последнего минимального элемента из данного набора
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.07.2011, 00:40

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Найти номера первого и последнего минимального элемента из данного набора, и вывести их в указанном порядке
Помогите пожалуйста. Я не могу понять как найти этот нормер. Получается есть набор из чисел....

Найти номера первого максимального и последнего минимального элемента из данного набора и вывести их в указанном порядке
Дано целое число N и набор из N целых чисел. Найти номера первого максимального и последнего...

Найти номера первого и последнего максимального элемента из данного набора
Дано целое число N и набор из N целых чисел. Найти номера первого и последнего максимального...

Найти номера первого минимального и последнего максимального элемента из заданного набора
Дано целое число N и набор из N целых чисел. Найти номера первого минимального и последнего...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.