1 задача (массив) С клавиатуры вводится массив из 15 чисел. С клавиатуры вводятся еще 2 числа – это пороги. Отсортировать по возрастанию отрицательные элементы массива от первого до наименьшего из пороговых. паскаль

Для решения этой задачи можно использовать следующий алгоритм:

1. Создайте пустой массив для хранения отрицательных чисел из введенного массива.

2. Заполните новый массив отрицательными элементами из введенного массива.

3. Отсортируйте новый массив в порядке возрастания.

4. Найдите наименьшее из введенных пороговых чисел.

5. Создайте новый массив для хранения отсортированных отрицательных элементов, которые меньше или равны наименьшему пороговому числу.

6. Заполните новый массив отсортированными отрицательными элементами, учитывая наименьшее пороговое число.

Вот пример кода на языке Паскаль, реализующий описанный алгоритм:

“`pascal
const
N = 15; // количество элементов в массиве

var
arr: array[1..N] of Integer;
threshold1, threshold2: Integer;
negatives: array of Integer;
i, j, temp, minThreshold: Integer;

begin
// Вводим массив
for i := 1 to N do
begin
Write(‘Введите элемент массива ‘, i, ‘: ‘);
ReadLn(arr[i]);
end;

// Вводим пороговые значения
Write(‘Введите первый пороговый элемент: ‘);
ReadLn(threshold1);

Write(‘Введите второй пороговый элемент: ‘);
ReadLn(threshold2);

// Заполняем новый массив отрицательными элементами из введенного массива
SetLength(negatives, 0);
for i := 1 to N do
begin
if arr[i] < 0 then begin // Увеличиваем размер массива на 1 SetLength(negatives, Length(negatives) + 1); negatives[Length(negatives)] := arr[i]; end; end; // Сортируем новый массив в порядке возрастания for i := 1 to Length(negatives) - 1 do begin for j := 1 to Length(negatives) - i do begin if negatives[j] > negatives[j+1] then
begin
temp := negatives[j];
negatives[j] := negatives[j+1];
negatives[j+1] := temp;
end;
end;
end;

// Находим наименьшее пороговое значение
minThreshold := Min(threshold1, threshold2);

// Создаем новый массив, в котором будут только отрицательные элементы,
// меньшие или равные минимальному пороговому значению
SetLength(negatives, 0);
for i := 1 to Length(negatives) do
begin
if negatives[i] <= minThreshold then begin // Увеличиваем размер массива на 1 SetLength(negatives, Length(negatives) + 1); negatives[Length(negatives)] := arr[i]; end; end; // Выводим отсортированные отрицательные элементы, учитывая пороговое значение WriteLn('Отсортированные отрицательные элементы, меньшие или равные пороговому значению:'); for i := 1 to Length(negatives) do begin Write(negatives[i], ' '); end; WriteLn; end. ``` После выполнения программы будет отсортированный массив отрицательных элементов, который меньше или равен наименьшему пороговому значению.