Числовая Последовательность

Тема в разделе "Pascal and Delphi", создана пользователем vladik0106, 23 окт 2012.

  1. vladik0106

    vladik0106 Гость

    Репутация:
    0
    Проверьте, является ли данная числовая последовательность а1, a2, ..., an постоянной (все члены равны между собой).pascal
     
  2. AristarhDark

    AristarhDark New Member

    Репутация:
    0
    Регистрация:
    30 окт 2012
    Сообщения:
    1
    Симпатии:
    0
    Примерно так:
    Код (Delphi):
    const
    N = 20;
    var
    M:array [1..N] of Integer;
    i:Integer;
    flag:Boolean;
    begin
    {
    Заполнение массива тут быть должно
    }

    flag:=True;
    for i := 1 to N-1 do
    if M[i]<>M[i+1] then
    flag:=False;
    if flag then
    {
    последовательность постоянная
    }

    else
    {
    последовательность не постоянная
    }

    end.
     
Загрузка...

Поделиться этой страницей