Bạn nào hk Pascal thì cho mik hỏi nha !!! Viết chương trình nhập dãy gồm n số tự nhiên, sắp xếp chúng theo thứ tự tăng dần và in ra màn hình a, Dãy đã sắp b, Ta gọi khoảng cách của 2 phần tử lền kề...

CD

Cát Diệu Nguyễn

15 tháng 5 2018

Bạn nào hk Pascal thì cho mik hỏi nha !!! Viết chương trình nhập dãy gồm n số tự nhiên, sắp xếp chúng theo thứ tự tăng dần và in ra màn hình a, Dãy đã sắp b, Ta gọi khoảng cách của 2 phần tử lền kề là hiệu của 2 số đó. Hãy in ra màn hình tất cả các khoảng cách của 2 phần tử liền kề và cho biết 2 phần tử liền kề có khoảng cách lớn nhất Giúp mik vs nha...

Đọc tiếp

#Tin học lớp 7

0

K

khonopro

6 tháng 3 2023

Viết chương trình nhập một dãy số gồm n số tự nhiên (n nhập từ bàn phím), sắp xếp chúng theo thứ tự tăng dần và in ra màn hình :

a) Dãy đã sắp

b) Các khoảng cách của hai số liền kề (hiệu của hai số đó )

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

9 tháng 3 2023

#include <bits/stdc++.h>

using namespace std;

int A[1000],n,i;

int main()

{

cin>>n;

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

sort(A+1,A+n+1);

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

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

cout<<endl;

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

cout<<A[i]-A[i-1]<<endl;

return 0;

}

Đúng(0)

K

khonopro

18 tháng 3 2023

em ko hiểu cho lắm

Đúng(0)

HP

Huy Phạm

2 tháng 5 2023

1.Viết chương trình nhập vào một dãy số gồm n phần tử.Sắp xếp dãy số theo thứ tự tăng dần sau đó in ra màn hình dãy số đã sắp xếp. 2.Viết chương trình nhập vào một dãy số gồm n phần tử. Sắp xếp dãy số theo thứ tự giảm dần sau đó in ra màn hình dãy số đã sắp xếp.(cứu mk với mai thi r ạ🥲

#Tin học lớp 8

2

KV

Kiều Vũ Linh

3 tháng 5 2023

1)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] > a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep tang dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Đúng(0)

KV

Kiều Vũ Linh

3 tháng 5 2023

2)

Var array:[1..1000] of integer;

i,n,t:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to n do

If a[i] < a[i+1] then

Begin

t:=a[i];

a[i]:=a[i+1];

a[i+1]:=t;

End;

Write('Sap xep giam dan ');

For i:=1 to n do write(a[i]:8);

Readln

End.

Đúng(0)

K

k_o_t_en

10 tháng 4 2023

mô tả thuật toán và viết chương trình sắp xếp dãy số A gồm N phần tử(N được nhập từ bàn phím) sắp xếp theo thứ tự tăng dần

(pascal)

#Tin học lớp 8

0

P

Panda

11 tháng 6 2020 - olm

1/Cho một dãy số N phần tử . Viết chương trình sắp xếp các phần tử đã cho theo thứ tự tăng dần (giảm dần)

2/ Viết chương trình chèn thêm 1 số nguyên vào 1 dãy số nguyên đã được sắp xếp theo thứ tự tăng dần sao cho dãy số không thay đổi trật tự sắp xếp

GIÚP MIK VỚI SẮP KT 1 TIẾT RÙI!!!!!!!!!!!!!........

#Toán lớp 8

0

JW

Jhon wisk

25 tháng 4 2023

Viết chương trình pascal nhập vào một mảng số nguyên B số lượng phần tử là m nhập từ bàn phím
+ sắp xếp mảng theo thứ tự giảm dần rồi in mảng đã sắp xếp ra màn hình

#Tin học lớp 8

1

KV

Kiều Vũ Linh

25 tháng 4 2023

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

i,m,tam:integer;

Begin

Write('m = ');readln(m);

For i:=1 to m do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

For i:=1 to m do

If a[i] < a[i+1] then

Begin

tam:=a[i];

a[i]:=a[i+1];

a[i+1]:=tam;

End;

Write('Mang sau khi sap xep: ');

For i:=1 to m do

Write(a[i]:8);

Readln;

End.

Đúng(1)

A

ádfg

10 tháng 12 2021

hãy viết 1 chương trình nhập dãy số gồm n số nguyên (n<=100).Viết chương trình sắp xếp các phần tử chẳn lên đầu dãy theo thứ tự tăng dần.các phần tử lẻ ở cuối dãy theo thứ tự giảm dần

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

10 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

long long a[100],b[100],c[100],n,i,dem1,dem2;

int main()

{

cin>>n;

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

cin>>a[i];

dem1=0;

dem2=0;

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

{

if (a[i]%2==0)

{

dem1++;

b[dem1]=a[i];

}

else

{

dem2=0;

c[dem2]=a[i];

}

sort(b+1,b+dem1+1);

sort(c+1,c+dem2+1);

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

cout<<b[i]<<" ";

for (i=dem2; i>=1; i--)

cout<<c[i]<<" ";

return 0;

}

Đúng(0)

VC

Văn Công Sỹ

25 tháng 4 2021

Viết chương trình nhập từ bàn phím số nguyên dương N (N<=100) và dãy A gồm N số nguyên A1, A2, …AN. Tìm và in ra số nhỏ nhất của dãy số vừa nhập? Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn hình. Input: Số nguyên dương N và dãy số A gồm N số nguyên dương a1, a2, …, an. Output: In ra Phần tử nhỏ nhất của dãy số đó. Sắp xếp dãy số A theo thứ tự giảm dần và in ra màn...

Đọc tiếp

#Tin học lớp 12

3

VC

Văn Công Sỹ

25 tháng 4 2021

Làm giúp bài này nhé

Đúng(0)

BA

Bùi Anh Tuấn

25 tháng 4 2021

Đúng(0)

BP

bui pham phuong Uyen

27 tháng 1 2021

bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau: a)In ra màn hình các phần tử của mảng vừa nhập.b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

27 tháng 1 2021

Bài 1:

uses crt;

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

i,n,kt,max,x,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Mang ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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('Day tang dan la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

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

max:=0;

kt:=0;

for i:=1 to n do

if (a[i] mod 2=0) and (a[i]<=x) then

begin

if max<a[i] then max:=a[i];

kt:=1;

end;

if kt=0 then writeln('Trong day khong co so le')

else writeln('So chan lon nhat khong vuot qua ',x,' la: ',max);

readln;

end.

Đúng(1)

HN

Hùngg Nguyễnn

21 tháng 4 2021

Viết chương trình nhập vào 1 dãy gồm 30 phần tử sắp xếp dãy đó theo thứ tự tăng dần

#Tin học lớp 8

3

T

꧁Ŧą∂ღℓ๏νëღ₤ąρเй꧂

21 tháng 4 2021

Program Day_So_Giam_Dan;
Uses Crt;
Var s,n,i,j,t:integer;
a:array[1..20] of integer;

Begin
Clrscr;
Writeln(‘SAP XEP DAY SO:’);
Write(‘Nhap so phan tu cua day 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
t:=a[i];
a[i]:=a[j];
a[j]:=t;

End;
Writeln(' Day sau khi sap xep giam dan la:'); For i:=1 to n do
Write(a[i]:4); Readln;
s:=0;
For i:=1 to n do s:=s+a[i];
Writeln('Gia tri trung binh la: ',s/n:6:2);

Readln;

End.

Đúng(1)

DT

Đỗ Thanh Hải

CTVVIP

21 tháng 4 2021

tăng dần e ơi

Đúng(2)

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP