Вот мои наработки:
program Pr2;
const
maxsize=100;
type
tvector=array [1..maxsize] of integer;
function proba (A: tvector; n:integer):boolean;
var
i:integer;
c:array [1..(maxsize-1)] of integer;
begin
for i:=1 to n-1 do
begin
c[i]:=A[i+1]-A[i];
end;
for i:=1 to n-1 do
begin
if c[i]=c[i+1] then continue
else
begin
result:=false;
exit;
end;
end;
result:=true;
end;
var
B:tvector;
n,i: integer;
D:boolean;
begin
writeln('введите размерность вектора');
readln(n);
for i:=1 to n do
begin
writeln('введите',i,'й элемент вектора');
readln(B[i]);
end;
D:=proba(B,n);
if D then writeln('да, арифметическая прогрессия')
else writeln('нет, не арифметическая прогрессия');
readln;
end.
нормально? или можно что нибудь улучшить чтоб было более рационально? подскажите пожалуйста!