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

  • Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

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

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

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

Верх Низ