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 ạ!!!!!!)
Dòng thứ 19 thay b[1] thành b[m]
*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.