По логике так: Надо расположить по возрастанию, то есть первое меньше второго, второе меньше третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало. 2) Сравни первое и второе числа; если первое больше второго , то поменяй их местами. 3)Сравни второе и третье числа; если второе больше третьего, то поменяй их местами. 4)Если теперь три числа не расположены в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись к пункту 2). 5)Конец.
Const n = 50; // количество чиселvar k: array [1..n] of integer; i, j, n1, n2, minr, a, b: integer; begin writeln(n, ' ', ': d'); a : = random(1000); b : = random(1000); minr : = 10000; for i : = 1 to n do k[i] : = a + random(b); for i : = 1 to n do for j : = 1 to n do if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then begin minr : = abs(k[i] - k[j]); n1 : = i; n2 : = j; end; writeln(n1, ' ', n2); end.
Надо расположить по возрастанию, то есть первое меньше второго, второе меньше третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало.
2) Сравни первое и второе числа; если первое больше второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе больше третьего, то поменяй их местами.
4)Если теперь три числа не расположены в порядке убывания, то исполни пункт 5) этого алгоритма; иначе вернись к пункту 2).
5)Конец.