Упорядочить нечетные элементы массива по убыванию ( тема: способ перестановок либо

Упорядочить нечетные элементы массива по убыванию ( тема: метод перестановок либо пузырька)

Задать свой вопрос
1 ответ

Сделаем массив, который будет иметь тип real, чтоб было больше возможностей для его заполнения, и назовем его В:
B : array [1..110] of real;
Заполним его случайными числами со специальной функцией:
for i:integer := 1 to 110 do
B[i] := random(100)/5 + random(100)/2;
Будем упорядочивать:
for i:integer := 2 to 110 do
if (B[i] lt; B[i - 1]) then
begin
t := B[i - 1];
B[i - 1] := B[i];
B[i] := t;
end;
После этого все элементы станут в массиве по порядку.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт