nhập 1 dãy số bất kì ko quá 50 số,in ra các phần tử âm theo thứ tự ko giảm nhanh nha cần gấp ạ

0 bình luận về “nhập 1 dãy số bất kì ko quá 50 số,in ra các phần tử âm theo thứ tự ko giảm nhanh nha cần gấp ạ”

1. program amkhonggiam;

   uses crt;

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

          n,i,j,tg:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu cua day: ‘);  readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA DAY’);

   for i:=1 to n do

    begin

     write(‘Phan tu thu ‘,i,’: ‘);

     readln(A[i]);

    end;

   for i:=1 to n-1 do

    for j:=i+ to n do

     if A[i]>A[i] then

      begin

       tg:=A{i];

       A[i]:=A[j];

       A[j]:=tg;

      end;

   for i:=1 to n do

    if A[i]<0 then write(A[i],’ ‘);

   readln

   end.

   Bình luận

2. program chuongtrinh;

   var i,n,nb,max,tam,v: integer;

   uses crt;

   a: array[1..50] of integer;

   b: array[1..50] og integer;

   begin

   write(‘Nhap so luong phan tu: ‘);

   readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap so thu’,i,’: ‘);

   readln(a[i]);

   end;

   nb:=0;

   for i:=1 to n do

   begin

   if a[i]<0 then

   begin

   nb:=nb+1;

   b[nb]:=a[i];

   end;

   end;

   write(‘Cac so am trong mang lan luot  khong giam la: ‘);

   max:=b[i];

   for i:=1 to nb do

   begin

   if b[i]> max then max:= b[i];

   vt:=i;

   end;

   tam:=b[1];

   b[1]:=b[vt];

   b[vt]:=tam;

   for i:= 1 to nb do

   write(‘ ‘,b[i],’ ‘);

   readln

   end.

   Bình luận