Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:16

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.

Toby Phạm
Xem chi tiết
shushu333
Xem chi tiết
Nguyên Hưng Trần
25 tháng 10 2021 lúc 21:19

program Tin_hoc;

Uses crt;

var i,n,k,dem:integer;

     a;array[1..10000] of integer;

Begin

clrscr;

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

writeln('Nhap ',n,' pha tu cua day A:');

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

dem:=0;

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

for i:= 1 to n do if a[i] = k then inc(dem);

writeln('Day A co ',dem,' ki tu ',k,);

readln;

end.

11111
Xem chi tiết
Linh ???
Xem chi tiết
oanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
22 tháng 12 2021 lúc 8:25

#include <bits/stdc++.h>

using namespace std;

long long i,n,k,dem,x;

int main()

{

cin>>n>>k;

dem=0;

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

{

cin>>x;

if (x==k) dem++;

}

cout<<dem;

return 0;

}

Nguyên Nguyễn
Xem chi tiết
Anh Lê duy
Xem chi tiết
Nguyễn Lê Phước Thịnh
3 tháng 12 2021 lúc 22:51

Bài 1: 

#include <bits/stdc++.h>

using namespace std;

long long a[250],i,n,k;

int main()

{

cin>>n>>k;

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

cin>>a[i];

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

if (a[i]==k) cout<<i<<" ";

return 0;

}

Vũ Xuân Giang
Xem chi tiết
Minh Lệ
1 tháng 8 2021 lúc 16:14

Program HOC24;

var n,a,i,d: integer;

x: array[1..32000] of integer;

begin

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

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': '); readln(x[i]);

end;

write('Nhap A: '); readln(a);

d:=0;

for i:=1 to n do if x[i]=a then d:=1;

if d=1 then write(A,' xuat hien trong day') else write(A,' khong xuat hien trong day');

readln

end.

Anh Phạm
1 tháng 8 2021 lúc 18:03

uses crt;

var n,i,a1:integer;

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

begin

writeln('nhap n'); readln(n);

writeln('nhap a'); readln(a1);

for i:=1 to n do

begin

readln(a[i]);

if (a[i]=a1) then

begin

write(' so a co xuat hien trong day');

break;

end;

if (i<n) then  continue;

writeln('Khong co so a trong day');

end;

readln;

end.

phạm quang huy
4 tháng 8 2021 lúc 10:30

uses crt;

var b:array[1..1000]of longint;n,a,i,d:longint;

begin

clrscr;

write('nhap so phan tu');readln(n);

for i:=1 to n do 

begin

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

end;

write('nhap so can tim kiem trong day so vua nhap:');readln(a);

d:=0;

for i:=1 to n do if(b[i]=a)then d:=1;

if d=0 then writeln('so',a,'ko co trong day so')else writeln('so',a,'co trong day so');

readln;

end.

 

Thu Hiền
Xem chi tiết