Работа 3.6 Упр.1 ГДЗ Семакин 10 класс (Информатика)

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 1. Дана последовательность действительных чисел а1, а2, …, аn. Выяснить, будет ли она возрастающей. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-6/1 98

Подробный ответ

Чтобы последовательность была возрастающей, каждый следующий элемент должен быть больше предыдущего:

$$a_{i+1} > a_i \quad \text{для всех } i=1,2,\dots,n-1.$$

Проверим все соседние пары элементов. Если хотя бы для одной пары условие не выполняется, последовательность не является возрастающей. Если для всех пар условие верно, то она возрастающая.

var n, i: integer;
mass: array[1..20] of integer;
begin
  read(n);
  for i := 1 to n do
    read(mass[i]);
  for i := 1 to n — 1 do
    if mass[i + 1] — mass[i] > 0 then
    begin
      writeln(‘Возрастающая’);
      exit;
    end
    else
    begin
      writeln(‘Не возрастающая’);
      exit;
    end;
end.

В этом решении проверка выполнена неверно: программа сразу завершает работу после первой же пары элементов. Нужно сравнить все соседние элементы и только после полного просмотра массива делать вывод.

var
  n, i: integer;
  mass: array[1..20] of real;
  flag: boolean;
begin
  read(n);
  for i := 1 to n do
    read(mass[i]);
  flag := true;
  for i := 1 to n — 1 do
    if mass[i + 1] <= mass[i] then
      flag := false;
  if flag then
    writeln(‘Возрастающая’)
  else
    writeln(‘Не возрастающая’);
end.