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

Сортировка одномерного массива. - Turbo Pascal

26.02.2011, 16:33. Просмотров 410. Ответов 2
Метки нет (Все метки)

Прошу отсортировать массив методом нахождения минимального элемента, т.е. при каждом просмотре массива находим минимальный элемент и меняем местами его с первым на первом проходе, со вторым - на втором и т.д. Массив вводит пользователь.
Заранее спасибо)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.02.2011, 16:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сортировка одномерного массива. (Turbo Pascal):

Сортировка одномерного массива
Помогите отсортировать массив C. type Z=array of integer; Z1=array of...

Сортировка одномерного массива
Господа, помогите.... Завтра утром экзамен. Нужно сформировать одномерный...

Сортировка одномерного массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1)...

Сортировка одномерного массива
Помогите пожалуйста написать программу, которая должна: 1)выводить на экран...

Сортировка одномерного массива
uses crt; var a: array of integer; n,i,j:integer; begin clrscr;...

Сортировка одномерного массива.
народ тема такая... написал прогу... но пойму как скрепить,так,чтобы когда...

2
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
26.02.2011, 17:13 #2
Лучший ответ Сообщение было отмечено poseidon как решение

Решение

Pascal
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
const
 n=10;
var
 arr: array[1..n] of integer;
 i, j, k, buf, min: integer;
begin
 min:=1;
  for i:=1 to n do
    read(arr[i]);
     for i:=1 to n-1 do
      begin
       min:=i;
        for j:=i+1 to n do
         begin
          if arr[j]<arr[min] then
           min:=j;
           buf:=arr[i];
           arr[i]:=arr[min];
           arr[min]:=buf;
            for k:=1 to n do
             write(arr[k], ' ');
             writeln;
         end;
      end; 
end.
1
Mad_Dog
Фрилансер
449 / 430 / 117
Регистрация: 01.06.2010
Сообщений: 1,315
26.02.2011, 17:17 #3
Поторопился с постом..., сорри
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.02.2011, 17:17
Привет! Вот еще темы с решениями:

Сортировка одномерного массива
HELP ME PLEASE!!! :wall: Необходимо решить задачку: Дано: масив {X}...

Сортировка одномерного массива
Дан одномерный массив &quot;Т&quot; состоящий из 5 цифр введенных с клавиатуры!Нужно...

Сортировка пузырьком одномерного массива
Разработать программу сортировки одномерного массива. Самостоятельно выбрать...

Сортировка одномерного массива методом вставки
Дан одномерный массив. Отсортировать его первую и третью часть методом вставки...


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

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

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