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;
writeln('Day so xep giam dan la: ');
for i:=1 to n do write(a[i]:4);
readln;
end.
Giúp em với ạ
Nhập n số thực từ bàn phím là phần tử của 1 mảng , sắp xếp dãy số theo thứ tự giảm dần . Xuất giá trị phần tử mảng lên màn hình
Lập trình giải bài toán sau Nhập 1 mảng gồm N số nguyên từ bàn phím 1.In mảng vừa nhập,mỗi mảng cách nhau 5 vị trí 2.In ra tất cả các số dương trong mảng 3.Tính tổng các số chia hết cho 3 4.Sắp xếp mảng theo chiều giảm dần
1.Nhập một mảng gồm n số nguyên từ bàn phím 2.In mảng vừa nhập ra màn hình theo chiều ngang các phần tử cách nhau 5 vị trí 3.Đếm và in ra các số lử âm ra dòng tiếp theo 4.Tính tổng các số chẵn 5.Sắp xếp theo chiều giảm dần Mn giúp e vs ạ!!!!
Lập trình nhập một mảng gồm n số nguyên từ bàn phím
1.In mảng ra màn hình,các phần tử cách nhau 5 vị trí
2.Tìm và in ra các số dương trong mảng
3.Sắp xếp mảng theo thứ tự các số chẵn lên đầu,số lẻ xuống cuối
Lập trình nhập một mảng gồm n số nguyên từ bàn phím
1.In mảng ra màn hình,các phần tử cách nhau 5 vị trí
2.Tìm và in ra các số chẵn âm trong mảng
3.Sắp xếp mảng theo thứ tự các số dương lên đầu,các số âm xuống cuối
Viết chương trình nhập vào từ bàn phím số nguyên n n bé Hòa và 150 tạo mảng gồm n phần tử sắp xếp dãy trên thành dãy không giảm
1. Nhập một số nguyên dương N≤200 và hai dãy số nguyên a[1..n] và b[1..n] thông báo ra màn hình xem hai dãy số đó có cùng các số hạng như nhau và chỉ khác nhau về thứ tự sắp xếp hay không.
2. Dùng các mảng 1 chiều nhập dữ liệu từ bàn phím của các khách hàng gửi tiền vào ngân hàng: họ tên, số tài khoản, số tiền dư(có thể âm). Sắp xếp danh sách khách hàng theo số tài khoản tăng dần và in toàn bộ dữ liệu ra dưới dạng bảng, mỗi hàng là dữ liệu của 1 khách hàng, tính tổng số tiền dư của các khách hàng.
