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.

6 tháng 4 2023

Uses crt;

Var k: array[1..10] of integer;

i,j,n: byte;

t: integer;

begin clrscr;

Readln(n);

For i:=1 to n do Begin

readln(k[i]);

end;

For i:=1 to n-1 do For j:=i+1 to n do

if k[j] <=k[i] then begin

t:= k[i];

k[i]:=M[j];

k[j]:=t; end;

For i:=1 to n do Write(k[i],';'); readln;

end.

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.

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.

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.

3 tháng 4 2019

1.

Program Tim_Max; 
Var A:Array[1..255] of Integer; 
i, n, Max: Integer; 
Begin 
Write('Nhap n: '); Readln(n); 
For i := 1 to n do 
Begin 
Write('Nhap phan tu A[',i,'] = '); Readln(A[i]); 
End; 
Max := A[1]; 
For i := 2 to n do if A[i]>Max then Max := A[i]; 
Write('Phan tu lon nhat la :',Max); 
Readln 
End.

2.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,j,Tam:Integer;
Begin
{Nhập mảng}
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
{Sắp xếp}
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;
{In kết quả ra màn hình}
Writeln('Ket qua sau khi sap xep:');
For i:=1 To N Do Write(A[i]:5);
Readln;
End.

3.

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,x:Integer;

Function TimKiem(x, N: Integer; A:Mang):Integer;
Var i:Integer;
Begin
I:=1;
While (I <= N) and (X<>A[I]) do I:=I+1; {{{{tại sao lại phải làm như bước này, tại sao lại lấy i đi so sánh với N}}}}
If I <= N Then Timkiem:=I Else Timkiem:=0;
End;

Begin
{Nhập mảng}
Write(‘Nhap N=’); Readln(N);
For i:=1 To N Do
Begin
Write(‘A[‘,i,’]=’); Readln(A[i]);
End;
Write(‘Nhap X=’); Readln(x);
{Kết quả tìm kiếm}
If TimKiem(X,N,A)<>0 Then 
Writeln(‘Vi tri cua X trong mang la:’, TimKiem(X,N,A))
Else Writeln(‘X khong co trong mang.’);
Readln;
End.

3 tháng 4 2019

câu 1 tham khảo cái này nhé

Uses Crt;

Type Mang = ARRAY[1..50] Of Integer;

Var A:Mang;

    N,i,Max:Integer;

Begin

    Write('Nhap N='); Readln(N);

    For i:=1 To N Do

        Begin

            Write('A[',i,']='); Readln(A[i]);

        End;

    Max:=A[1];

    For i:=2 To N Do

    If Max<A[i] Then Max:=A[i];

    Writeln('Phan tu lon nhat cua mang:', Max);

    Readln;

End.

#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;

}

18 tháng 3 2023

em ko hiểu cho lắm

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

# Nhập dãy số từ bàn phím
lst = list(map(int, input("Nhập dãy số cách nhau bởi dấu cách: ").split()))

# Sắp xếp dãy số theo thuật toán sắp xếp chọn
for i in range(len(lst)):
   min_idx = i
   for j in range(i+1, len(lst)):
       if lst[j] < lst[min_idx]:
           min_idx = j
   lst[i], lst[min_idx] = lst[min_idx], lst[i]

# In kết quả ra màn hình
print("Dãy số đã sắp xếp:", lst)

1:

uses crt;

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

i,n: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 do 

  write(a[i]:4);

readln;

end.

2: 

uses crt;

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

i,n,j,tam: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:=1 to n do 

  write(a[i]:4);

readln;

end.

3:

uses crt;

var x,i,max:integer;

begin

clrscr;

repeat

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

until x>0;

max:=0;

for i:=1 to x do 

  if i mod 2=0 then

begin

if max<=i then max:=i;

end;

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

readln;

end.

 Đề thi gồm 02 bài thi: Bài 1: Viết chương trình theo yêu cầu: Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. Ví du: Mời bạn nhập vào số N: 6 So thu 1:  So thu 2: 84  So thu 3: 75 So thu 4: 6 So thu 5: 69 So thu 6: 33 Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 Chuoi so sau khi sap xep tang dan la: 3,...
Đọc tiếp

 

Đề thi gồm 02 bài thi: 

Bài 1

Viết chương trình theo yêu cầu: 

Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) 

Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. 

Ví du: 

Mời bạn nhập vào số N: 6 

So thu 1:  

So thu 2: 84  

So thu 3: 75 

So thu 4: 6 

So thu 5: 69 

So thu 6: 33 

Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 

Chuoi so sau khi sap xep tang dan la: 3, 6, 33, 69, 75, 84  

Bài 2:

Viết chương trình theo yêu cầu: 

Chi phí tiêu dùng của một gia đình chủ yếu gồm 4 loại sau: tiền điện, tiền nước, tiền ga và tiền điện thoại  (Lưu ý: số tiền sử dụng là số nguyên dương ) 

Nhập số tiền 4 loại chi phí (tiền điện, tiền nước, tiền ga và tiền điện thoại) từ bàn phím 

In ra màn hình tổng chi phí chi tiêu trong tháng?    

Help me pléae

 

1

1:

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

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

cout<<"Day ban dau la: "<<endl;

for (i=1;i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

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

cout<<"Day tang dan la: "<<endl;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

19 tháng 3 2023

Câu 1:

Program HOC24;

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

i,n: integer; tbc: real;

begin

write('Nhap so phan tu trong mang: '); readln(n);

for i:=1 to n do

begin

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

end;

tbc:=0;

 

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

tbc:=tbc/n;

write('Trung binh cong la: ',tbc:6:2);

 

readln

end.

19 tháng 3 2023

Câu 2:

Program HOC24;

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

i,n,h,tg: integer;

begin

write('Nhap so phan tu trong mang: '); readln(n);

for i:=1 to n do

begin

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

end;

for i:=1 to n do

for j:=i to n do

if a[i]>a[j] then

begin

tg:=a[i];

a[i]:=a[j];

a[j]:=tg;

end;

write('Mang sau khi sap xep la: ');

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

readln

end.

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n,chon;

int main()

{

cin>>n;

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

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

cin>>chon;

if (chon==0) 

{

for (i=1; i<=n; i++) cout<<a[i]<<" ";

}

else 

{

for (i=n; i>=1; i--) cout<<a[i]<<" ";

}

return 0;

}