khó quá giúp mình với

[rubiethuy]

Bµi 2
Mét cÊp sè céng la mét d·y sè tho¶ m·n ®iÒu kiÖn: hai phÇn tö liªn tiÕp nhau sai kh¸c nhau mét h»ng sè. Ch¼ng hÆn, d·y sè 3,5,7,9,11 lµ mét cÊp sè céng víi c¸c phÇn tö liªn tiÕp sai kh¸c nhau h»ng sè 2. h»ng sè sai kh¸c chung ®­îc gäi lµ c«ng sai cña cÊp sè céng.
Cho mét d·y a gåm n phÇn tö vµ mét h»ng sè C (víi 1<=N,C<=500;2<=Ai<=105)
Mét d·y con ®­îc t¹o ra tõ d·y a b»ng c¸ch chän mét hay mét sè phÇn tö cña d·y A
Vµ gi÷ nguyªn thø tù ban ®Çu.
Yªu cÇu: t×m trong d·y A mét d·y con dµi nhÊt lËp thµnh mét cÊp sè céng víi c«ng sai lµ C.
D÷ liÖu vµo: cho tÖp Bµi2.inp
- Dßng ®Çu :Ghi sè N vµ C (®­îc ngan cach nhau bëi daaus trèng)
- N dßng tiÕp theo ghi lÇn l­ît gi¸ trÞ c¸c phÇn tö cña d·y A
KÕt qu¶ ra: Ghi ra tÖp bai2.out
- Dßng ®Çu ghi sè l­îng c¸c phÇn tö d·y con t×m ®­îc.
- Dßng thø 2 ghi c¸c phÇn tö cña d·y con dµi nhÊt t×m ®­îc lËp thµnh mét cÊp sè céng.
Vidô
Bai1.inp
5 3
5
7
10
11




Bai1.out
3
5 8 11

[thewitcher13]

mình chạy thử bài này rồi kết quả chưa dựoc bạn ah. Bạn xem lại giúp mình với nhe
cảm ơn nhiều nhé

[MinhPhuc123]

Chương trình này mình vẫn chưa chuẩn, bạn tham khảo và sửa xem sao!

Var A,B,D:array[1..100] of byte;
i,j,C,N,k,m,g,dem,dem1,cs:integer;
Begin
write('Nhap vao so phan tu cua day:');
Readln(N);
For i:=1 to N do
 Begin
   write('Phan tu thu ',i,':');
   Readln(A[i]);
 End;
Write('Nhap vao hang so c:');
Readln(C); i:=1;
While i<=N do
Begin
 j:=i+1;B[1]:=A[i];g:=i;m:=1;dem1:=1;dem:=1;cs:=1;
 while (j<=N) do
   Begin
      if A[j]= A[g]+C then
         Begin
           inc(m);
           B[m]:=A[j]; g:=j;
           inc(j);
           inc(dem);
        End
    else inc(j);
End;
 if dem>dem1 then
 Begin
      cs:=m;
     For k:=1 to cs do
        Begin
           D[k]:=B[k];
           write(D[k]:3);
          End;
     break;
  End;
dem1:=dem;
 
            inc(i);
End;
if dem=1 then write('Khong co day con nao thoa man yeu cau bai toan');
 
Readln
End.

[tenten]

lehang oi tai sao minh chay roi van ko ra dc kết quả bạn cố gắng xem lại giúp mình với