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

 

Примерно так:

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.