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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
ВАРИАНТ 2
1. Напишите программу. На числовой прямой отмечены точки A1, А2, АЗ, ..., Аn. Выясните, какому из отрезков [Ai; Ai+1] принадлежит заданная точка X.
Запишите текст программы.
program s5_v2_1;
const
n = 5;
var
a: array[1..n] of integer;
i, x, c, j: integer;
begin
writeln(taskВвод координат точекtask);
for i := 1 to n do
readln(a[i]);
//сортировка "пузырьком" по возрастанию
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] > a[j + 1] then
begin
c := a[j];
a[j] := a[j + 1];
a[j + 1] := c
end;
//for i := 1 to n do//вывод отсортированного массива
//write(a[i], task task);
writeln;
write(taskx=task);
readln(x);
if (x >= a[1]) and (x
begin
for i := 1 to n - 1 do
if (x >= a[i]) and (x
then write(taskх принадлежит отрезку task, a[i], task:task, a[i + 1])
end
else writeln(taskх не принадлежит ни одному отрезкуtask)
end.