Em hãy viết một chương trình theo tuần tự về ngày cuối tuần của em

0 bình luận về “Em hãy viết một chương trình theo tuần tự về ngày cuối tuần của em”

1. uses crt;
   var n,i,j,tam:longint;a:array[1..100]of longint;
   begin
   clrscr;
   readln(n);
   for i:=1 to n do
   readln(a[i]);
   for i:=1 to n do
   for j:=i 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
   if(a[i]>0)then write(a[i],’ ‘);
   writeln;
   for i:=n downto 1 do
   if(a[i]<0)then write(a[i],’ ‘);
   readln;
   end.

   Bình luận