Задача (Паскаль)

[TaiPaN]

Здравствуйте уважаемые программисты)
Пожалуйста, помогите решить задачу!
вот задача:

Дана последовательность не более 20 ненулевых целых чисел,
последним числом в последовательности является 0. Ввести эту
последовательность в одномерный массив и вычислить количество арифметических прогрессий с заданным приращением М, состоящих не менее чем из трех подряд расположенных элементов; порядок расположения элементов в массиве менять нельзя; для каждой обнаруженной прогрессии напечатать номера входящих в нее элементов (использование дополнительных массивов запрещено).

Заранее благодарен)

[Stilet]

Что-то я немного ниразу непонял задание...
Найти кол-во рядомстоящих повторяющихся элементов что-ли?

[TaiPaN]

найти кол-во арифметических прогрессий с заданным приращением М.
например:
1 3 6 7 8 11
здесь одна арифметическая прогрессия, это: 6 7 8, а приращение = 1.
я сам не до конца понел задачу(

[TaiPaN]

может все-таки мне кто-нибудь поможет?

[Mad_Cat]

может все-таки мне кто-нибудь поможет

лови)

var n,nc:integer;
m:integer;
a:array[1..20] of integer;
k,i,j:integer;
begin
n:=0;
repeat inc(n); readln(a[n]); until a[n]=0;
dec(n);
Writeln('Array');
for i:=1 to n do write(a[i],'  ');
Writeln;
write('m=');readln(m);
k:=0;i:=1;
while i<=n do begin
if a[i+1]-a[i]=m then begin inc(k);inc(i);end
else begin
if k >= 3 then begin
  if k=i-1 then nc:=1
  else nc:=i-k+1;
for  j:=nc to i do
write(j,' ');
writeln;k:=0;
Dec(i);
end
else inc(i);end;
end;
if k=i-1 then nc:=1
  else nc:=i-k+1;
if k>=3 then
for  j:=nc to i do
write(j,' ');
readln;
end.

[TaiPaN]

спасибо большое!