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

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

vladik0106

#1
Проверьте, является ли данная числовая последовательность а1, a2, ..., an постоянной (все члены равны между собой).pascal
 
30.10.2012
1
0
#2
Примерно так:
Код:
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.