viết chương trình nhập vào dãy A gồm n số nguyên (n<=100)và số nguyên k. a) tìm xem có số nào trong dãy bằng k nếu có thì in ra vị trí đó,nếu ko thì t

0 bình luận về “viết chương trình nhập vào dãy A gồm n số nguyên (n<=100)và số nguyên k. a) tìm xem có số nào trong dãy bằng k nếu có thì in ra vị trí đó,nếu ko thì t”

1. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,k: longint;
       ok: boolean;
   Begin
           Clrscr;
           Write(‘Nhap n va k: ‘); Readln(n,k);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           ok:=false;
           For i:=1 to n do
                   If A[i]=k then
                   Begin
                           ok:=true;
                           Break;
                   End;
           If ok=false then Write(‘Khong co so ‘,k,’ trong mang’)
           Else
           Begin
                   Write(‘Vi tri: ‘);
                   For i:=1 to n do
                           If A[i]=k then Write(i,’ ‘);
           End;

           Readln
   End.

   Bình luận