Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 18.03.2018
Сообщений: 7
1

Найти максимальный и минимальный элементы в массиве и упорядочить между ними элементы

20.03.2018, 22:42. Показов 966. Ответов 1
Метки нет (Все метки)

Прошу код для сортировки элементов по возрастанию, между максимальным и минимальным элементами массива.
Заранее спасибо.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2018, 22:42
Ответы с готовыми решениями:

Найти в массиве максимальный и минимальный элементы и их номера
Помогите составить программы: 1)ввести с клавиатуры массив из 5 элементов найти в нем ...

Найти минимальный и максимальный элементы в трехмерном массиве
Нужно найти минимальный и максимальный элементы в трехмерном массиве!Я тут кое-что попытался но у...

Найти в массиве целых чисел K(n) минимальный Kmin и максимальный Kmax элементы
Дан массив целых чисел K(n). Найти в нем минимальный Kmin и макcимальный Kmax элементы. Вывести в...

Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми элементами
Дан массив K(10). Найти максимальный и минимальный элементы массива между вторым и пятым нулевыми...

1
1742 / 1335 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.03.2018, 22:49 2
Лучший ответ Сообщение было отмечено MaxEff как решение

Решение

Как вариант
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
26
27
28
29
const n = 20;
var a: array[1..n] of integer;
    i, ii, x, imax, imin: integer;
begin
  randomize;
  imax := 1; imin := 1;
  for i := 1 to n do begin
    a[i] := -20 + random(41);
    write(a[i], ' ');
    if a[imax] < a[i] then imax := i;
    if a[imin] > a[i] then imin := i;
  end;
  writeln;
  if imax < imin then begin
    x := imax;
    imax := imin;
    imin := x;
  end;
  if imax - imin > 1 then begin
    for i := imin + 1 to imax - 2 do
      for ii := i to imax - 1 do
        if a[i] > a[ii] then begin
          x := a[i];
          a[i] := a[ii];
          a[ii] := x;
        end;
    for i := 1 to n do write(a[i], ' ');
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2018, 22:49

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Поменять в массиве максимальный и минимальный элементы местами
Создать новый одномерный массив B из элементов исходной матрицы A(6, 8), удовлетворяющих условию 0...

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

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

Найдите максимальный и минимальный элементы в массиве и поменяйте их местами
Найдите максимальный и минимальный элементы в массиве и поменяйте их местами. Входные данные ...


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

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

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