Найти локальные максимумы массива

@Arbitation · Регистрация: 09.03.2023

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

Помогите пожалуйста с Задачей Абрамова 210.

Даны натуральное число n, действительные числа a₁, ..., a_n. Получить все натуральные j(2≤j≤n-1), для которых a_j-1<a_j>a_j+1.

@Cyborg Drone · 09.03.2023, 20:42

Pascal

const
  n = 10;
var
  a: array[1..n] of real;
  j: integer;
begin
  randomize;
  writeln('Source array:');
  for j := 1 to n do
    begin
      a[j] := 198 * random - 99;
      write(a[j]:7:2)
    end;
  writeln;
  writeln('Set of "j":');
  for j := 2 to n-1 do
    if (a[j-1] < a[j]) and (a[j] > a[j+1]) then write(j, ' ');
  readln
end.

@Arbitation 0 / 0 / 0 Регистрация: 09.03.2023 Сообщений: 2
		1
	Найти локальные максимумы массива 09.03.2023, 17:05. Показов 263. Ответов 1 Метки pascal, pascalabc.net, turbo pascal (Все метки) Помогите пожалуйста с Задачей Абрамова 210. Даны натуральное число n, действительные числа a₁, ..., a_n. Получить все натуральные j(2≤j≤n-1), для которых a_j-1<a_j>a_j+1. 0

Опции темы