PASCAL 1.Cho dãy số nguyên A gồm N phần tử. Hãy lập trình nhập vào dãy số A, tìm xem có hay không phần tử có giá trị bằng K. Dữ liệu nhập: - Dòng 1 là 2 số nguyên N và K - Dòng 2 là dãy số nguyên A Kết quả xuất ra: - in YES nếu tìm thấy, NO nếu không tìm thấy. Ví dụ 1: INPUT 4 5 9 8 2 5 OUTPUT YES Ví dụ 2: INPUT 5 2 8 5 9 7 8 OUTPUT NO

đây nha

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,k: longint;
    ok: boolean;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n,k);
        ok:=false;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]=k then ok:=true;
                If ok=true then Break;
        End;

        If ok=true then Write('YES')
        Else Write('NO');
        Readln
End.