Cho một dãy gồm n phần tử hãy sắp xếp phần tử âm đứng đầu sau đó là số 0 cuối cũng là phần tử dương Làm giúp mình với ạ

Phamthaingoc

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 14 xem

1 trả lời

Thích Trả lời

pngochungx2000

mình nghĩ bài này là sắp xếp tăng dần á

program sapxep;

uses crt;

var A:array[1..10000] of integer;

n,i,j,tg:integer;

begin

clrscr;

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

write('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

writeln('Day 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

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

writeln('Day sau khi sap xep la:');

for i:=1 to n do

write(A[i]:4);

readln

end.

Vote (0) Phản hồi (0) 2 năm trước

lothimet123

{Var A:array[1..10000] of integer;

n,i,j,tg:integer;

Begin

Write('Nhap so luong phan tu n: '); readln(n);

Write('Nhap gia tri tung phan tu cua day');

for i:=1 to n do

Begin

write('Nhap phan tu thu ',i,': ');

readln(A[i]);

end;

writeln('Day 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

tg:=A[i];

A[i]:=A[j];

A[j]:=tg;

end;

writeln('Day sau khi sap xep la:');}

for i:=1 to n do

write(A[i]:4);

readln

end.

Phần program với uses crt thì không cần thiết nhé !!

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Quét mã r làm giúp tui gấp nhoa

i..ps mk vowis mn ddang thi ioe

Làm giúp em câu 10 với 11 vơi ạ . em cảm ơn ,

Cần ăn uống như thế nào để đáp ứng nhu cầu dinh dưỡng cơ thể để đáp ứng nhu cầu dinh dưỡng cơ thể

Làm giúp em với ạ em cần gấp lắm !!!!!

Nài này cần gấp để tối đi hok r nek

Mình đã giải(chắc chắn đúng), các bạn giúp mik giải thích tại sao chọn đc đáp án đó

dựa trên các thông tin về pin điện hóa đã biết hãy vẽ các thiết kế cho viêv chế tạo pin điện hoá từ các kim loại thông thường với chất điẹn li lựa chon Gi rõ dự kiến về chất liệu của các bộ phận

Viết giúp mik với 😊 Mik cảm ơn 😖

Trình bày những sự kiện tiêu biểu của phong trào cách mạng Việt Nam từ năm 1925 đến năm 1929. Sự kiện nào có ý nghĩa quyết định đến sự ra đời của Đảng Cộng sản Việt Nam năm 1930? Vì sao?

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến