Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Заменить четные элементы матрицы на число 99 Дан двумерный массив А, заполненный случайным образом. Заменить четные элементы массива на число 99.и вывести новый массив ввиде таблицы????? https://www.cyberforum.ru/ turbo-pascal/ thread823864.html Игра с шариком Turbo Pascal
Кто нибудь может написать программу: нарисовать шарик. нарисовать перекрестие прицела. шарику присвоить движение и случайное появления на экране. прицелу присвоить движения с помощью кнопок на...
Turbo Pascal Нарисовать автомобиль. Реализовать алгоритм, движения автомобиля по экрану(с вращением колес) https://www.cyberforum.ru/ turbo-pascal/ thread823849.html
Помогите пожалуйста.
Turbo Pascal Вычислить первую и вторую производную заданных функций Здравствуйте уважаемые форумчане , у кого есть свободное время помогите пожалуйста написать программу. Задание: Вычислить первую и вторую производную заданных функций. ... https://www.cyberforum.ru/ turbo-pascal/ thread823822.html
обработка массивов Turbo Pascal
в двумерном массиве чисел,хранящемся на внешнем носителе,найти пару строк,среднеквадратическое отклонение одноименных элементов которых наименьшее. программа +тестовые исходные данные для проверки...
Turbo Pascal Преобразовать массив таким образом, чтобы сначала располагались все элементы, равные нулю, а потом все остальные https://www.cyberforum.ru/ turbo-pascal/ thread823815.html
В одномерном массиве, состоящем из n целых элементов, вычислить 1. Минимальный элемент массива. 2. Сумму элементов массива, расположенных между первым и последним положительными элементами....
Turbo Pascal Вывод на экран надпись Здравствуйте. Мне нужна программа которая будет выводить на экран надпись с помощью линий https://www.cyberforum.ru/ turbo-pascal/ thread823814.html Turbo Pascal Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет
Опишите тип объектов – равносторонних секторов с параметрами: координаты центра, радиус, угол, цвет. Пусть методами будут А) порождение сектора; Б) изменение его цвета; В) изменение его размера....
Turbo Pascal Написать программу, которая выводит на экран изображение четырехугольной звезды https://www.cyberforum.ru/ turbo-pascal/ thread823785.html
Написать программу, которая выводит на экран изображение четырехугольной звезды на желтом фоне. Используйте перемещение фигуры по экрану с помощью клавиш перемещения курсора. Выход из программы по...
Turbo Pascal Заполнить массив С(10) случайными значениями Заполнить массив С(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения каждого второго элемента массива.... https://www.cyberforum.ru/ turbo-pascal/ thread823778.html
Turbo Pascal Программная реализация алгоритмов внутреней сортировки
Помогите пожалуйста решить. Заранее большое спасибо Дана действительная матрица А размерности (n x n ). Если среднее арифметическое элементов первой строки превышает среднее арифметиче-ское...
Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread823749.html
помогите пожалуйста
Модератор
9478 / 4802 / 3210
Регистрация: 17.08.2012
Сообщений: 15,036
31.03.2013, 18:56 0

Поиск минимального элемента в массиве - Turbo Pascal - Ответ 4339188

31.03.2013, 18:56. Показов 7377. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Андрей1230 как решение

Решение

Андрей1230, никакой модификации. Вся разница - при поиске минимального элемента используется не "<", а "<=". Тогда будет найден последний минимальный элемент, если есть несколько равных минимальных элементов. И, так как необходимо просканировать весь массив, то по-любому сравнений нужно на единицу меньше количества элементов массива. Алгоритм:

Поиск минимального элемента в массиве


Реализация алгоритма, функция, возвращает номер последнего минимального элемента массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
function min(x: array of real): integer;
var min: real; //минимум
    i: integer; //счётчик
begin
  min := x[1]; //пока минимум - первый элемент массива
  Result := 1; //пока номер минимального элемента = 1
  for i := 2 to length(x) do begin
    if x[i] <= min then begin //если меньше или равно, то
      min := x[i]; //минимум - элемент массива x[i]
      Result := i; //номер минимального элемента = i
    end;
  end;
end;
Всего Вам доброго.

Вернуться к обсуждению:
Поиск минимального элемента в массиве Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2013, 18:56
Готовые ответы и решения:

Поиск минимального элемента в массиве
пожалуйста помогите, напишите мне программу поиска минимального элемента в массиве A(10.10) с...

Поиск минимального нечетного элемента в заданном целочисленном массиве из 50 элементов
Уважаемые форумчане! Для вас не будет сложным решить 4 простейшие программки (они действительно...

Нахождение в массиве минимального элемента среди положительных и его номера в массиве
• Нахождение в массиве минимального элемента среди положительных и его номера в массиве. •...

Нахождение минимального элемента в массиве
Не получается составить программу на нахождение минимального элемента в одномерном массиве. помогите

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2013, 18:56
Помогаю со студенческими работами здесь

Функция поиска минимального элемента в массиве
написать программу перезагрузки функции поиска минимального элемента в массиве. элементы массива...

Перестановка в массиве максимального и минимального элемента
В квадратной матрице в каждой строке переставить ее максимальный и минимальный элементы

Замена минимального элемента в массиве, максимальным.
Доброго всем времени суток. Подскажите пожалуйста, как сделать программу, по замене первого...

Поиск индекса минимального элемента
Вводится квадратная матрица с клавиатуры( не более 10 чисел). Найти и вывести индекс минимального...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru