Определить количество локальных минимумов в заданном одномерном числовом массиве

@Doc · Регистрация: 05.05.2014

Author24 — интернет-сервис помощи студентам

Задание: составить схему алгоритма и программу решения задачи.

Определить количество локальных минимумов в заданном числовом массиве. (Локальный минимум в числовом массиве – это последовательность трех рядом стоящих чисел, в которой среднее число меньше стоящих слева и справа от него).

@erl27 · 01.07.2014, 22:27

Pascal

var
  Mass: array[1..20] of integer;
  i, N, Count_LocalMin: byte;
  
begin
  write(' N = ');
  readln(N);
  writeln('Введите ', N, ' целых чисел:');
  writeln;
  for i := 1 to N do
    read(mass[i]); //вводим элементы массива
  writeln;
  Count_LocalMin := 0;
  { 1-й и N-й элементы имеют только 1 соседний элемент: }
  if mass[1] < mass[2] then inc(Count_LocalMin);
  if mass[N] < mass[N - 1] then inc(Count_LocalMin);
  { Проверяем остальные значения масива от 2 до N - 1: }
  for i := 2 to N - 1 do
    if (mass[i] < mass[i - 1]) and (mass[i] < mass[i + 1]) then inc(Count_LocalMin);
  { Выводим результат: } 
  if Count_LocalMin > 0 then writeln('Количество локальных минимумов: ', Count_LocalMin)
  else writeln('Локального минимума нет.')
end.

@Doc 1 / 1 / 0 Регистрация: 05.05.2014 Сообщений: 106
		1
	Определить количество локальных минимумов в заданном одномерном числовом массиве 01.07.2014, 18:45. Показов 2851. Ответов 1 Метки нет (Все метки) Задание: составить схему алгоритма и программу решения задачи. Определить количество локальных минимумов в заданном числовом массиве. (Локальный минимум в числовом массиве – это последовательность трех рядом стоящих чисел, в которой среднее число меньше стоящих слева и справа от него). 0

	01.07.2014, 22:27

Определить количество локальных минимумов в заданном одномерном числовом массиве

Решение