Question

Pascal. Дан одномерный массив. Определить сколько отрицательных элементов находится после последнего минимального элемента.

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var imin:=a.LastIndexMin;
  a?[imin+1:].Where(t->t<0).Println
end.

Пример
n= 13
50 -39 13 -36 3 -43 6 21 -18 -25 48 31 -19
-18 -25 -19

Answer 2

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

1. Объявляем переменные: - n: целое число - размер массива - arr: массив целых чисел - исходный одномерный массив - minElement: целое число - значение минимального элемента - countNegative: целое число - количество отрицательных элементов после последнего минимального элемента - lastMinIndex: целое число - индекс последнего минимального элемента

2. Вводим размер массива n и заполняем его значениями: - Через цикл for запрашиваем у пользователя n значений и записываем их в массив arr.

3. Находим минимальный элемент в массиве и его индекс: - Инициализируем переменную minElement значением первого элемента массива arr. - Инициализируем переменную lastMinIndex значением 1. - Через цикл for перебираем все элементы массива arr, начиная со второго элемента. - Если текущий элемент меньше minElement, то обновляем значения minElement и lastMinIndex.

4. Проверяем количество отрицательных элементов после последнего минимального элемента: - Инициализируем переменную countNegative значением 0. - Через цикл for перебираем все элементы массива arr, начиная с элемента, следующего после lastMinIndex. - Если текущий элемент отрицательный, то увеличиваем значение countNegative на 1.

5. Выводим результат: - Выводим значение countNegative.

Ниже приведен код на языке Pascal, реализующий описанный алгоритм:

```pascal program CountNegativeAfterLastMin;

var n, minElement, countNegative, lastMinIndex, i: integer; arr: array of integer;

begin // Ввод