Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Расставить на доске максимальное число ферзей так, чтобы каждый из них нападал ровно на р ферзей 3. Расставить на доске N×N максимальное число ферзей так, чтобы каждый из них нападал ровно на р (р<=2) ферзей. Совсем не представляю как делать эти задачи, с обычной задачей на 8 ферзей проблем... https://www.cyberforum.ru/ pascalabc/ thread2214032.html Определить, за какое наименьшее число ходов ферзь может обойти все поля доски N×N Pascal ABC
2. Определить, за какое наименьшее число ходов ферзь может обойти все поля доски N×N. Совсем не представляю как делать эти задачи, с обычной задачей на 8 ферзей проблем не было
Pascal ABC Расставить на доске N ферзей так, чтобы наибольшее число ее полей оказалось вне боя ферзей 1.Расставить на доске N×N (N<=12) N ферзей так, чтобы наибольшее число ее полей оказалось вне боя ферзей. Ферзи при этом могут «бить» друг друга. Совсем не представляю как делать эти задачи, с... https://www.cyberforum.ru/ pascalabc/ thread2214030.html Pascal ABC Дан массив записей, содержащих сведения об игрушках https://www.cyberforum.ru/ pascalabc/ thread2213981.html
Дан массив записей, содержащих сведения об игрушках: указывается название игрушки (например, кукла, кубики, мяч, конструктор и т.д.), ее стоимость в рублях и возрастные границы детей, для которых...
Pascal ABC Дана целочисленная квадратная матрица порядка n
Дана целочисленная квадратная матрица порядка n (задана с клавиатуры). 1) Проверить вторую строку на выполнение признака: все элементы строки отрицательны 2) Найти номера строк, все элементы...
Pascal ABC Заданы основание системы счисления p(p<15) и строка s, представляющая собой запись числа в этой системе счисления https://www.cyberforum.ru/ pascalabc/ thread2213943.html
Заданы основание системы счисления p(p<15) и строка s, представляющая собой запись числа в этой системе счисления. Осуществить перевод заданного числа в систему с основанием 10.
Pascal ABC Дана строка длиной не более 255 символов. Найти длину самого короткого слова Дана строка длиной не более 255 символов. Строка содержит слова, разделенные между собой пробелами. Найти длину самого короткого слова. https://www.cyberforum.ru/ pascalabc/ thread2213940.html Отсортировать двумерный массив Pascal ABC
Нужен код, упорядочивающий все элементы двумерного массива по убыванию методом Шелла.
Pascal ABC Найти сумму простых чисел, меньших числа 100 Найти сумму простых чисел, меньших числа 100. Определить функцию, распознающую простые числа в виде: https://www.cyberforum.ru/ pascalabc/ thread2213938.html Pascal ABC Разработать программу нахождения среднего значения ненулевых элементов введенного с клавиатуры массива целых чисел https://www.cyberforum.ru/ pascalabc/ thread2213935.html
Разработать программу нахождения среднего значения ненулевых элементов введенного с клавиатуры массива целых чисел
Pascal ABC Разработать программу нахождения заданного с клавиатуры числа в массиве размерности 10
Разработать программу нахождения заданного с клавиатуры числа в массиве размерности 10. Массив инициализировать при объявлении. Вывести индекс найденного елемента
Pascal ABC Вычислить значение функции, заданной рядом Тейлора 1) Вычислить значение функции, заданной с помощью ряда Тейлора, для некоторого х с точностью эпсилон. Проверить правильность алгоритма, вычислив значение функции по формуле. 2) Вычислить и вывести... https://www.cyberforum.ru/ pascalabc/ thread2213918.html
1742 / 1335 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
20.03.2018, 22:49 0

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

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

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Найти максимальный и минимальный элементы в массиве и упорядочить между ними элементы Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.03.2018, 22:49
Готовые ответы и решения:

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

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

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.03.2018, 22:49

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

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

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

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

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

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