Помогите с программой

[Юлёнка]

Помогите с программой

Дана последовательность чисел а1,а2,а3…. Проверить является ли данная последовательность арифметической прогрессией:tehnari_ru_281:

 

[Vladimir_S]

Дана последовательность чисел а1,а2,а3…. Проверить является ли данная последовательность арифметической прогрессией:tehnari_ru_281:

Ну, если считать, что задание нужно выполнить на языке Паскаль (а впечатление такое, что каждый второй из просящих у нас помощи перед обращением на наш форум дает страшную клятву о языке программирования молчать), и если допустИм целочисленный формат членов последовательности, то так:

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.