Решение задач. Array30-36

Приветствуем читателей нашего сайта! Сегодня мы с вами решим задачи Array30-36.

Задачи Array30-36

Array30. Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

program array30;

var
  A: array[1..10] of integer;
  N, k, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  k := 0;
  for i := 1 to N - 1 do
    if A[i] > A[i + 1] then
    begin
      inc(k);
      write(i, ' ')
    end;
  writeln;
  write(k);
end.

Array31. Дан массив размера N. Найти номера тех элементов массива, которые больше своего левого соседа, и количество таких элементов. Найденные номера выводить в порядке их убывания.

program array31;

var
  A: array[1..10] of integer;
  N, k, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  k := 0;
  for i := 2 to N do
    if A[i] > A[i - 1] then
    begin
      inc(k);
      write(i, ' ')
    end;
  writeln;
  write(k);
end.

Array32°. Дан массив размера N. Найти номер его первого локального минимума (локальный минимум — это элемент, который меньше любого из своих соседей).

program array32;

var
  A: array[1..10] of integer;
  N, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  
  for i := 2 to N - 1 do
    if (A[i] < A[i - 1]) and (A[i] < A[i + 1]) then
    begin
      write(i, ' ');
      exit; {завершает программу}
    end;
  writeln(0); {если минимума нет}
end.

Array33. Дан массив размера N. Найти номер его последнего локального максимума (локальный максимум — это элемент, который больше любого из своих соседей).

program array33;

var
  A: array[1..10] of integer;
  N, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  
  for i := N - 1 downto 2 do
    if (A[i] > A[i - 1]) and (A[i] > A[i + 1]) then
    begin
      write(i, ' ');
      exit;
    end;
  writeln(0); {если максимума нет}
end.

Array34. Дан массив размера N. Найти максимальный из его локальных минимумов (определение локального минимума дано в задании Array32).

program array32;

var
  A: array[1..10] of integer;
  N, max, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  
  max := -MaxInt;
  
  for i := 2 to N - 1 do
    if (A[i] < A[i - 1]) and (A[i] < A[i + 1]) then if A[i] > max then max := A[i];
      
  writeln(max); 
end.

Array35. Дан массив размера N. Найти минимальный из его локальных максимумов (определение локального максимума дано в задании Array33).

program array35;

var
  A: array[1..10] of integer;
  N, min, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  
  min := MaxInt;
  
  for i := N - 1 downto 2 do
    if (A[i] > A[i - 1]) and (A[i] > A[i + 1]) then
      if A[i] < min then min := A[i];
      
  writeln(min); 
end.

Array36. Дан массив размера N. Найти максимальный из его элементов, не являющихся ни локальным минимумом, ни локальным максимумом (определения локального минимума и локального максимума даны в заданиях Array32 и Array33). Если таких элементов в массиве нет, то вывести 0 (как вещественное число).

program array36;

var
  A: array[1..10] of integer;
  N, max, i: integer;

begin
  write('Введите N: ');
  readln(N);
  write('Введите элементы массива: ');
  for i := 1 to N do
    read(A[i]); 
  
  max := -MaxInt;
  
  for i := 2 to N-1 do
    if not((A[i] > A[i - 1]) and (A[i] > A[i + 1])) and 
    not((A[i] < A[i - 1]) and (A[i] < A[i + 1])) then if A[i] > max then max := A[i];
  {проверяем те элементы, которые не были проверены в цикле}
  if a[1] > max then max := a[1];
  if a[N] > max then max := a[N];
      
  writeln(max); 
end.

На сегодня всё! Если у вас возникли вопросы, задавайте их в комментариях. И не забывайте рассказывать о нашем сайте своим друзьям!