K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

23 tháng 8 2023

def timTatCaGiaTri(a, x):

    danhSach = [] # Khởi tạo danh sách rỗng để lưu trữ các phần tử tìm thấy

    for i in range(len(a)):

        if a[i] == x:

            danhSach.append(i) # Nếu phần tử được duyệt là phần tử cần tìm, thêm chỉ số của nó vào danh sách

    return danhSach # Trả về danh sách chứa các chỉ số của các phần tử bằng giá trị cần tìm

23 tháng 8 2023

Trong trường hợp này, chúng ta cần tìm phần tử có giá trị là 47 trong dãy A = [1, 91, 45, 23, 67, 9, 10, 47, 90, 46, 86]. Ta sẽ thực hiện duyệt từng phần tử trong dãy này để tìm kiếm phần tử có giá trị là 47.

Dãy A có tổng cộng 11 phần tử, và trong trường hợp xấu nhất, phần tử cần tìm là phần tử cuối cùng của dãy. Vì vậy, trong trường hợp xấu nhất, ta cần duyệt qua toàn bộ dãy A để tìm thấy phần tử có giá trị là 47.

Vậy, số lần duyệt cần thực hiện là 7 lần.

QT
Quoc Tran Anh Le
Giáo viên
23 tháng 8 2023

Với thuật toán tìm kiếm tuần tự, cần duyệt 10 phần tử để tìm ra phần từ có giá trị bằng 34.

23 tháng 8 2023

Để tìm phần tử có giá trị bằng 34 trong dãy A = {0, 4, 9, 10, 12, 14, 17, 18, 20, 31, 34, 67} bằng thuật toán tìm kiếm tuần tự, ta sẽ duyệt qua từng phần tử của dãy cho đến khi tìm thấy phần tử cần tìm.

Vì phần tử 34 nằm ở vị trí thứ 11 trong dãy, nên số lần duyệt cần thực hiện để tìm ra phần tử này là 11 lần, bao gồm cả phần tử 34.

Vậy, cần duyệt qua 11 phần tử để tìm ra phần tử có giá trị bằng 34 trong dãy A

21 tháng 12 2020

uses crt;

var n,i,k,dem:integer;

a:array[1..100]of integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So phan tu chan trong day so la: ',dem);

write('Nhap so k='); readln(k);

kt:=0;

for i:=1 to n do 

  if a[i]=k then kt:=i;

if kt=0 then writeln('Khong co phan tu nao trong day bang ',k)

else writeln('Trong day co phan tu bang ',k);

readln;

end.

24 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[6],i,t,t1;

int main()

{

t=0;

for (i=1; i<=n; i++)

{

cin>>a[i];

if (a[i]%2==0) t=t+a[i];

}

t1=0;

for (i=1; i<=n; i++)

if ((a[i]%2!=0) and (i%2==0)) t1=t1+a[i];

cout<<t<<endl;

cout<<t1;

return 0;

}

- Sửa một số tại vị trí thứ k trong dãy. Nhập vào một vị trí k cần sửa, chương trình cho biết giá trị phần tử ở vị trí k đó và yêu cầu nhập giá trị cần sửa.- Chèn một số vào vị trí k, nhập từ bàn phím vị trí k và giá trị cần chèn vào dãy số.- In dãy số hiện hành ra màn hình.- Thoát khỏi chương trìnhIn ra màn hình                 HAY CHON MOT TRONG CAC SO SAU:                                  1.Nhap day so...
Đọc tiếp

- Sửa một số tại vị trí thứ k trong dãy. Nhập vào một vị trí k cần sửa, chương trình cho biết giá trị phần tử ở vị trí k đó và yêu cầu nhập giá trị cần sửa.

- Chèn một số vào vị trí k, nhập từ bàn phím vị trí k và giá trị cần chèn vào dãy số.

- In dãy số hiện hành ra màn hình.

- Thoát khỏi chương trình

In ra màn hình

                 HAY CHON MOT TRONG CAC SO SAU: 

                                 1.Nhap day so :

                                 2.Sap xep day so :

                                 3.Tim mot so :

                                 4.Xoa mot so :

                                 5.Sua mot so:

                                 6.Chen mot so :

                                 7.In day so:

                                 8.Thoat chuong trinh.                             

1
17 tháng 4 2021

program bai_2;

uses crt;

var a:array[1..100]of byte;

n,i,j,tam,vt,vt2,x,x2,k,ch:byte;

procedure yc1;

begin

  for i:=1 to n do

  begin

    write('nhap phan tu a[',i,']:');readln(a[i]);

  end;

  for i:=1 to n do write(a[i]:3);

end;

procedure yc2;

begin

  for i:=1 to n do

  begin

    write('nhap phan tu a[',i,']:');readln(a[i]);

  end;

  for i:=1 to n-1 do

  for j:=i+1 to n do

  if a[i]>a[j] then

  begin

    tam:=a[i];

    a[i]:=a[j];

    a[j]:=tam;

  end;

  writeln('mang a:');for i:=1 to n do write(a[i]:3);

end;

procedure yc3;

begin

    for i:=1 to n do

    begin

      write('nhap phan tu a[',i,']:');readln(a[i]);

    end;

    write('nhap so x:');readln(x);

    for i:=n downto 1 do

    if a[i]=x then vt:=i;if a[i]=x then writeln('vi tri cua ',x,' trong mang a la:',vt);writeln;

    if a[i]<>x then writeln('khong tim thay ',x,' trong day so tren');writeln;

end;

procedure yc4;

begin

  for i:=1 to n do

  begin

   write('nhap phan tu a[',i,']:');readln(a[i]);

  end;

  write('nhap so x2:');readln(x2);

  for i:=n downto 1 do

    if a[i]=x2 then vt2:=i;if x>0 then

    begin

      for i:=vt2 to n-1 do a[i]:=a[i+1];

      for i:=1 to n-1 do write(a[i]:3);

    end

  else  if a[i]<>x2 then write('khong tim thay ',x2,' trong day so tren');

end;

procedure yc5;

begin

    for i:=1 to n do

    begin

      write('nhap phan tu a[',i,']:');readln(a[i]);

    end;

    write('nhap vi tri:');readln(vt);

    for i:=1 to n do

    if (vt=i) then writeln('phan tu o vi tri ',vt,' la:',a[vt]:3);

    for i:=vt to n-1 do a[i]:=a[i+1];

    for i:=n downto vt+1 do a[i]:=a[i-1];

    write('nhap so can sua:');readln(a[vt]);

    writeln('day so sau khi sua la:');

    for i:=1 to n do write(a[i]:3); writeln;

end;

procedure yc6;

begin

  for i:=1 to n do

  begin

   write('nhap phan tu a[',i,']:');readln(a[i]);

  end;

  write('nhap vi tri can chen k:');readln(k);

  for i:=n+1 downto k+1 do a[i]:=a[i-1];

  write('nhap so can chen vao  day:');readln(a[k]);

  writeln('day so sau khi chen ',a[k],' vao  day la:');

  for i:=1 to n+1 do write(a[i]:3);writeln;

end;

procedure yc7;

begin

  for i:=1 to n do

  begin

   write('nhap phan tu a[',i,']:');readln(a[i]);

  end;

  for i:=1 to n do

  write(a[i]:3);

  writeln;

end;

BEGIN

  clrscr;

  while ch<8 do

  begin

    clrscr;

    writeln('CHON MOT TRONG CAC SO SAU:');

    writeln('1.NHAP DAY SO:');

    writeln('2.SAP XEP DAY SO:');

    writeln('3.TIM MOT SO:');

    writeln('4.XOA MOT SO:');

    writeln('5.SUA MOT SO:');

    writeln('6.CHEN MOT SO:');

    writeln('7.IN DAY SO:');

    writeln('8.THOAT KHOI CHUONG TRINH:');

    write('nhap so co yeu cau ban muon lam:');readln(ch);

    if ch<8 then

    begin write('nhap so n:');readln(n); end;

    case ch of

      1:yc1;

      2:yc2;

      3:yc3;

      4:yc4;

      5:yc5;

      6:yc6;

      7:yc7;

    end;

    readln;

  end;

  readln;

end.

 

uses crt;

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

i,n,k,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

write('Nhap k='); readln(k);

for i:=1 to n do 

  if a[i]=k then 

begin

writeln(i);

break;

end;

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

if dem>0 then writeln('Co ',dem,' phan tu bang ',k)

else writeln('Khong co phan tu nao bang ',k);

readln;

end.

Bai 2:

uses crt;

var a:array[1..100]of integer;

i,n,t,nn:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

for i:=1 to n do

if nn>a[i] then nn:=a[i];

write(nn);

readln;

end.