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
Ngà Nguyễn
Xem chi tiết
Nguyễn Lê Phước Thịnh
24 tháng 10 2021 lúc 0:34

Tìm i gì vậy bạn?

Nguyễn Thị Thanh Nhàn
Xem chi tiết
Nguyễn Lê Phước Thịnh
8 tháng 3 2021 lúc 13:58

Bài 1: 

uses crt;

var a:array[1..1000000]of longint;

i,n,x:longint;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

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

for i:=1 to n do 

  if a[i]<>x then write(a[i]:4);

readln;

end.

Phu Vo
Xem chi tiết
Nguyễn Lê Phước Thịnh
15 tháng 10 2021 lúc 0:43

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,max;

int main()

{

cin>>n;

cin>>x;

max=x;

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

{

cin>>x;

if (max<=x) max=x;

}

cout<<max;

return 0;

}

Hoàng ST
Xem chi tiết
Nguyễn Lê Phước Thịnh
6 tháng 11 2021 lúc 0:25

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x>0) dem++;

}

cout<<dem;

return 0;

}

ngo minh duc
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 9:26

Câu 7:

const fi='dayso.inp'

fo='dayso.out'

var f1,f2:text;

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

i,n,dem,j,t,kt,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,'Tong cua day so la: ',t);

b[1]:=a[1];

dem:=1;

for i:=1 to n do 

  begin

kt:=0;

for j:=1 to dem do 

  if a[i]=b[j] then kt:=1;

if kt=0 then

begin

inc(dem);

b[dem]:=a[i];

end;

end;

for i:=1 to dem do 

  begin

dem1:=0;

for j:=1 to n do 

  if b[i]=a[j] then inc(dem1);

writeln(f2,b[i],' xuat hien ',dem1,' lan');

close(f1);

close(f2);

end.

Big City Boy
Xem chi tiết
Nguyễn Lê Phước Thịnh
18 tháng 11 2023 lúc 19:52

Để \(u_n\) nguyên thì \(n^2+3n+7⋮n+1\)

=>\(n^2+n+2n+2+5⋮n+1\)

=>\(5⋮n+1\)

=>\(n+1\in\left\{1;-1;5;-5\right\}\)

=>\(n\in\left\{0;-2;4;-6\right\}\)

Vậy: \(u_n\) có 4 số hạng nhận giá trị nguyên

Nguyễn Hoàng Nam
Xem chi tiết
Ngô Quang Sinh
10 tháng 5 2017 lúc 12:06

Đáp án đúng : D

Thùy trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
19 tháng 12 2021 lúc 22:49

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x%2!=0) dem++;

}

cout<<dem;

return 0;

}

Treallagx
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 8 2023 lúc 13:59

2:

#include <bits/stdc++.h>

using namespace std;

int A[100],ln,nn,vt1,vt2,n;

int main()

{

cin>>n;

for(int i=1; i<=n; i++) cin>>A[i];

ln=A[1];

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

ln=max(ln,A[i]);

nn=A[1];

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

nn=min(nn,A[i]);

vt1=1; vt2=n;

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

if (ln==A[i] && vt1<=i) vt1=i;

for (int i=n; i>=1; i--)

if (nn==A[i] && vt2>=i) vt2=i;

swap(A[vt1],A[vt2]);

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

cout<<A[i]<<" ";

}

nguyễn an phát
Xem chi tiết
Bùi Anh Tuấn
2 tháng 3 2021 lúc 20:13

Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:35

uses crt;

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

i,n,tam,j:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('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;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.