Одномерный массив, инвертирование

[Branbal]

1) Если все элементы этого массива (вектора) составляют арифметическую прогрессию, то вектор инвертировать.

(Создавал тему, там отписался один человек, спасибо, но решение не верное, инвертирует любые выражения, меняет последние 2 цифры)

[Branbal]

Var a: array [1..100] of integer;
N,I,X,D,K: integer;
f: boolean;
begin
readln (N);
For I:=1 to N do
begin
read (A[i]);
end;
d:=a[2]-a[1];
f:=true;
for i:=2 to n-1 do
if a[i+1]-a[i]<> d then f:=false;
if not f then
for i:=1 to n-1 do
begin
X:=A[i]; A[i]:=A[I+1]; A[I+1]:=X;
for i:=1 to n do
Write(a[i]);
end;
end.

Вот таким образом на основе предыдущего предложения сделал задачу, но в этом случае программа вообще никак не реагирует...

[Branbal]

Есть у кого идеи? Одинокая ответила, но к сожалению, неверно, я попробовал переделать, но результата нет желаемого. По мне так это сложная задачка)

[kitty19]

Var a: array [1..100] of integer;
N,I,X,D,K: integer;
f: boolean;
begin
readln (N);
For I:=1 to N do
begin
read (A[i]);
end;
d:=a[2]-a[1];
f:=true;
for i:=2 to n-1 do
if a[i+1]-a[i]<> d then f:=false;
if f then
for i:=1 to n div 2 do
begin
X:=A[i]; A[i]:=A[n-I+1]; A[n-I+1]:=X;
end;
for i:=1 to n do
Write(a[i]);
end;

[Branbal]

ДА!!!)) Китти огромное вам спасибо, запутался с этим в корни, вы очень помогли!

[SanyaS]

1.Составить вектор из номеров строк матрицы, где содержатся только числа с одинаковой разрядностью.

(Никак не пойму, что именно надо делать)

[Serebro]

Материал из Википедии — свободной энциклопедии

В математике разрядностью числа называется количество числовых разрядов, необходимых для записи этого в числа в той или иной системе счисления. Разрядность числа иногда также называется его длиной.

Проверяем каждую строку матрицы.