Задать вопрос
16 октября, 07:05

Задана последовательность из n вещественных чисел. Опреде - лить количество чисел, больших своих соседей, т. е. предыдущего и последующего числа.

+2
Ответы (1)
  1. 16 октября, 08:26
    0
    Const

    n = 50; / / количество элем массиваvar

    a: array [1 ... n] of integer;

    kol, i: integer; begin

    for i : = 1 to n do

    readln (a[i]);

    for i : = 2 to n - 1 do

    if (a[i] > a[i + 1]) and (a[i] > a[i - 1]) then

    kol : = kol + 1;

    writeln (kol);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Задана последовательность из n вещественных чисел. Опреде - лить количество чисел, больших своих соседей, т. е. предыдущего и последующего ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы