Технический форум - Помогите с программой

Цитата:

Сообщение от Юлёнка (Сообщение 475973)

Дана последовательность чисел а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.