упорядочить по возрастанию массив целых чисел a1...an используя алгоритм сортировки выбором

упорядочить по возрастанию массив целых чисел a1...an используя метод сортировки выбором

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

Мотивированной массив в задачке имеет тип integer. В таковой массив можно будет вносить только целые числа.
Так как в Паскале нельзя творить динамические массивы, то определять величину массива программным способом мы не можем. 
Придется задать значение n:
а : array [1..10] of integer;
Наполняем его случайными целыми числами, пользуясь функцией random():
for i:integer := 1 to 10 do
а[i] := random(100);
Чтоб расположить элементы по порядку, необходимо сделать переменную, в которой будет временно содержатся сменяемое значение:
for i:integer := 2 to 10 do
if (а[i] lt; а[i - 1]) then
begin
t := а[i - 1];
а[i - 1] := а[i];
а[i] := t;
end;
После того, как все элементы будут размещены по порядку, выведем массив, применив форматирование для каждого элемента, чтоб они не были размещены рядом:
for i:integer := 2 to 10 do
write(a[i]:5).

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


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

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

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

Войти на сайт