Viết chương trình nhập vào từ bàn phím dãy số nguyên A có n phần tử và 1 số nguyên k. Sau đó in lên màn hình chỉ số i mà Ai= k hoặc thông báo không tì

Viết chương trình nhập vào từ bàn phím dãy số nguyên A có n phần tử và 1 số nguyên k. Sau đó in lên màn hình chỉ số i mà Ai= k hoặc thông báo không tìm thấy nếu không có số hạng nào của dãy số có giá trị = k

0 bình luận về “Viết chương trình nhập vào từ bàn phím dãy số nguyên A có n phần tử và 1 số nguyên k. Sau đó in lên màn hình chỉ số i mà Ai= k hoặc thông báo không tì”

  1. program vi_tri_bang_k;

    uses crt;

    var A:array[1..1000] of integer;

         n,i,d:integer;

    begin

           clrscr;

           write(‘Nhap k: ‘);  readln(k);

           write(‘Nhap so luong phan tu n: ‘);  readln(n);

           d:=0;

           for i:=1 to n do

                  begin

                         write(‘A[‘,i,’]= ‘);  readln(A[i]);

                         if A[i]=k then d:=d+1;

                  end;

           if d=0 then write(‘Khong co so hang nao cua day co gia tri bang ‘,k)

           else

                  begin

                         write(‘Co ‘,d,’ vi tri: ‘);

                         for i:=1 to n do

                                if A[i]=k then write(i,’ ‘);

                  end;

           readln;

    end.

    Bình luận
  2. program pascal;

    uses crt;

    var A:array[1..300] of integer;

    k,i,n:byte;

    begin

    clrscr;

    writeln(‘nhap n =’ );

    readln(n);

    for i:=1 to n do 

    begin

    writeln(‘nhap phan tu thu ‘,i);

    realn(a[i]):

    end;

    writeln(‘nhap k = ‘);

    readln(k);

    for i:=1 to n do 

    if A[i] = K then

    writeln(‘chi so phan tu bang gia tri k la : ‘ , i) else

    writeln(‘khong tim thay phan tu nao bang gia tri k’);

    readln

    end.

    Bình luận

Viết một bình luận