Напистаь программу в турбо паскале
дан массив a размерностью n (размерность вводит пользователь). массив заполнен случайными числами от -9 до 28. написать программу, сортирующую массив по возрастанию.
279
290
Ответы на вопрос:
program delin;
const
nn = 100; // максимальный размер массива
var
i, j, n, t: integer;
a: array[1..nn] of integer;
begin
write('n = ');
read(n);
randomize;
for i : = 1 to n do
begin
a[i] : = random(38) - 9;
write(a[i], ' ');
end;
writeln;
for i : = n - 1 downto 1 do
for j : = 1 to i do
if a[j] > a[j + 1] then
begin
t : = a[j];
a[j] : = a[j + 1];
a[j + 1] : = t;
end;
for i : = 1 to n do
write(a[i], ' ');
end.
Популярно: Информатика
-
dashatieriesanp06obv23.06.2021 14:22
-
SlowMoe28.05.2020 07:44
-
Askarabdullaev06.11.2021 23:28
-
AjdanaLife14.02.2021 04:28
-
xxsPiRiTxx14.08.2021 08:46
-
Katya55200203.12.2021 14:34
-
stendec02.02.2021 01:06
-
Артём0Болдырев23.11.2021 23:02
-
Lkjgcvb18.10.2020 21:24
-
heyguys11224.01.2021 13:14