Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Tweeker
0 / 0 / 1
Регистрация: 15.03.2015
Сообщений: 66
#1

Найти в массиве минимальный элемент и обменять его с первым - Turbo Pascal

11.02.2014, 22:03. Просмотров 301. Ответов 1
Метки нет (Все метки)

Добрый вечер.
Помогите пожалуйста.
http://www.cyberforum.ru/turbo-pascal/thread753643.html
Нужно-Отсортировать массив следующим образом: найти в массиве минимальный элемент и обменять его с первым. Начиная со второго элемента найти в массиве минимальный элемент и обменять его со вторым..
Заранее спасибо
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.02.2014, 22:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти в массиве минимальный элемент и обменять его с первым (Turbo Pascal):

Процедуры и функции: Найти минимальный элемент и поменять его местами с первым диагональным элементом матрицы
В каждой задаче написать программы с использованием процедур и функций...

Найти минимальный элемент в каждом столбце матрицы и поменять его местами с первым элементом этого столбца
Матрица А. Найти минимальный элемент в каждом столбце и поменять его местами с...

В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с первым
3. В массиве из 25 вещественных чисел найти наименьший элемент и поменять его...

В массиве найти минимальный элемент и его индекс
составить программу вычисления в массиве B(N) минимального среди...

В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с первым элементом
В массиве из 25 вещественных чисел найти наименьший элемент и поменять его...

1
Cyborg Drone
Модератор
5249 / 3116 / 2432
Регистрация: 17.08.2012
Сообщений: 10,067
12.02.2014, 02:16 #2
Лучший ответ Сообщение было отмечено как решение

Решение

tweeker, ???
Pascal
1
2
3
4
5
6
7
8
for j := 1 to n - 1 do
  for i := j + 1 to n do 
    if a[i] < a[j]
      then begin
        tmp := a[j];
        a[j] := a[i];
        a[i] := tmp
      end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2014, 02:16
Привет! Вот еще темы с решениями:

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

Найти max и min элементы в данном массиве, обменять первый максимальный и последний минимальный
1. Заполнить массив случайные числами из промежутка 2. Найти максимальный и...

В массиве вычислить: минимальный по модулю элемент массива, сумму модулей элементов за первым нулевым
В одномерном массиве, состоящем из n целых элементов, вычислить: 1)...

В типизированном файле с вещественными компонентами обменять местами максимальный элемент с первым нулевым
В типизированном файле с вещественными компонентами обменять местами...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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