קודם כל השאלה:

נתון מערך באורך של N מספרים טבעיים. כתוב תוכנית המחשבת ומדפיסה את אורך תת-הסדרה הארוכה ביותר, אשר מופיעה גם בהתחלת המערך (החל מהאיבר הראשון) וגם בסופו (כלה באיבר האחרון). לדוגמא: אם המערך מכיל

7,4,5,3,1,9,2,7,4,5,3 התשובה היא 4, כי תת הסדרה הארוכה ביותר היא 7,4,5,3

זה דחוף כי זה למחר ולגמרי שכחתי מזה וזאת עבודה עם ציון..

מישהו יכול לעזור ומהר??

תודה מראש

בבקשה: (אין לי פסקל, אז יכולות להיות כמה שגיאות סינטאקס פה ושם...)

Const
    N = ?;
Var
    Arr[0..N]: Integer
    Found: integer;
    ExWhile: Boolean;
    I,J: Integer;
Begin
Found = 0;
cont = True
For i = 0..(N - 1) Do Begin
    If (Arr[i]=Arr[N]) Then Begin
        J = i;
        ExWhile = True;
        While ((J >= 0) And (ExWhile = True)) Do Begin
            If (Arr[J]<>Arr[N+J-i]) Then
                ExWhile=False;
            J=J-1;
        end;
        If (ExWhile=True) Then
        Found = i;
    end;
end;
writeln("The Answer Is: ",Found+1);
End.

WOW!

זה נראה שאני לא ישרוד בזה אחרי השנה (כיתה י')

סך הכל זה לא כ"כ נורא...