Задание 8 Вариант 3 Самостоятельная работа 4 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

8. Напишите программу. Упорядочьте массив C[1..N] по возрастанию. Проверьте работу программы на заданном массиве С = {63, 7.2, -4.5, 0, -10, 14, -310, 50, 11, -14, 5}.

Массив С, упорядоченный по возрастанию.

program s4_v3_8;

const

n = 11;

var

c: array[1..n] of real;

a: real;

i, j: integer;

begin

writeln(taskввод массиваtask);

//randomize;

for i := 1 to n do

//c[i] := random*20-10;

readln(c[i]);

// сортировка методом «пузырька»

for i := 1 to n - 1 do

for j := 1 to n - i do

if c[j] > c[j+1] then

begin

a := c[j];

c[j] := c[j+1];

c[j+1] := a

end;

for i := 1 to n do

write(c[i], task, task)

end.

Массив С, упорядоченный по возрастанию:

-310, -14, -10, -4.5, 0, 5, 7.2, 11, 14, 50, 63,

В программе предусмотрен (в комментариях) ввод массива через генератор случайных чисел. Можно воспользоваться им, для этого убрать // и закомментировать ввод с клавиатуры. Для изменения количества элементов измените n.