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

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

  1. vladik0106

    vladik0106 Гость

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

    AristarhDark New Member

    Регистрация:
    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.
     
Загрузка...

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