создаю массив
Код:
for i:=0 to l-1 do
begin
r[l-i]:=chislo mod 10;
chislo := chislo div 10;
end;
вывожу на экран
Код:
for i:=1 to l do
begin
writeln('r[',i,']=',r[i]);
end;
например ввел 13579
вывел
Код:
r[1]=1
r[2]=3
r[3]=5
r[4]=7
r[5]=9
потом этот массив передаю в функцию где он проверяется на прогрессию,l - размер массива
Код:
function progr(l:integer;r:array of integer):Boolean;
и уже в функции он при выводе этого же массива выдаёт его значение.
элементы массива я не меняю внутри функции.
Код:
r[1]=1
r[2]=3
r[3]=5
r[4]=7
r[5]=0
и так с любым последним элементом,и любая прогрессия-не прогрессия..
никак не пойму где я что неправильно наворотил...