Цитата:
Сообщение от Юлёнка
Дана последовательность чисел а1,а2,а3…. Проверить является ли данная последовательность арифметической прогрессией
|
Ну, если считать, что задание нужно выполнить на языке Паскаль (а впечатление такое, что каждый второй из просящих у нас помощи перед обращением на наш форум дает страшную клятву о языке программирования молчать), и если допустИм целочисленный формат членов последовательности, то так:
Код:
Const
N=5;
Var
A:ARRAY[1..N] of Integer;
i,D,D1:Integer;
BEGIN
For i:=1 to N do
begin
Write('A[',i,']= ');
ReadLn(A[i]);
end;
D:=A[2]-A[1];
i:=2;
Repeat
Inc(i);
D1:=A[i]-A[i-1];
Until (i=N) or (D1<>D);
If D1<>D then WriteLn('NO') else WriteLn('YES');
ReadLn;
END.