2, viết ct nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không , nếu có

2, viết ct nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không , nếu có thì đưa ra màn hình vị trí của phần tử đầu tiên/cuối cùng và đếm xem có bao nhiêu phần tử bằng k or thông báo ko có chú ý: phần tử đầu tiên/phần tử cuối cùng(2 đề nha mn, thay ở chỗ nào nói em vs ạ. giúp em, em cần gấp lắm ạ!!!!!!)

0 bình luận về “2, viết ct nhập một dãy số nguyên gồm N phần tử (N<=1000) và một số nguyên k. Tìm trong dãy số nguyên có phần tử có giá trị bằng k hay không , nếu có”

  1. *Phần tử đầu:

    uses crt;
    var i,n,d,k,kq:longint; a:array[1..1000]of longint;
    begin
    clrscr;
       write(‘Nhap n,k: ‘);readln(n,k);
       for i:=1 to n do
          begin
             write(‘a[‘,i,’]=’);readln(a[i]);
             if k=a[i] then inc(d);
             if (k=a[i])and(d=1) then kq:=i; 
          end;
       if d<>0 then
          begin
             writeln(‘Phan tu dau: ‘,kq);
             writeln(‘So luong: ‘,d);
          end else writeln(‘Khong co’);
    readln
    end.

    *Phần tử cuối:

    uses crt;
    var i,n,d,k,kq:longint; a:array[1..1000]of longint;
    begin
    clrscr;
       write(‘Nhap n,k: ‘);readln(n,k);
       for i:=1 to n do
          begin
             write(‘a[‘,i,’]=’);readln(a[i]);
             if k=a[i] then begin inc(d); kq:=i; end;
          end;
       if d<>0 then
          begin
             writeln(‘Phan tu cuoi: ‘,kq);
             writeln(‘So luong: ‘,d);
          end else writeln(‘Khong co’);
    readln
    end.

    Bình luận

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