• B правой части каждого сообщения есть стрелки ⇧ и ⇩. Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок ✔ в правой части сообщения.

  • Приглашаем на KubanCTF

    Старт соревнований 14 сентября в 10:00 по москве

    Ссылка на регистрацию в соревнованиях Kuban CTF: kubanctf.ru

    Кодебай является технологическим партнером мероприятия

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

  • Автор темы vladik0106
  • Дата начала
V

vladik0106

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

AristarhDark

Примерно так:
Код: 
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.
 
За 0 Против
Для ответа нужно войти/зарегистрироваться
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Верх Низ