Viết phương trình nhập 1 mảng phán tử n A Tính tổng pt B Tìm số lg phân tử dương và phân tử âm C Tìm số lớn nhì của phân tử dương và số thứ nhì của ph

0 bình luận về “Viết phương trình nhập 1 mảng phán tử n A Tính tổng pt B Tìm số lg phân tử dương và phân tử âm C Tìm số lớn nhì của phân tử dương và số thứ nhì của ph”

1. program BT;

   uses crt;

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

         n,i,T,d1,d2,max,max2,j,tg: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     T:=T+i;

                     if A[i]>0 then  

                     begin

                              d1:=d1+1;

                              if max<A[i] then max:=A[i];

                              if (A[i]>max2) and (A[i]<max) then max2:=A[i];

                     end;

                     if A[i]<0 then

                     begin

                              d2:=d2+1;

                              if max<A[i] then max:=A[i];

                              if (A[i]>max2) and (A[i]<max) then max2:=A[i];

                     end;

            end;

            writeln(‘T = ‘,T);

            writeln(‘So phan tu duong: ‘,d1);

            writeln(‘So phan tu am: ‘,d2);

            writeln(‘So lon nhi: ‘,max2);

            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;

            write(‘Mang sau khi sap xep: ‘);

            for i:=1 to n do write(A[i],’  ‘);

            readln

   End.

   Bình luận

2. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
         i, n, s, sd, sa, j, t: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           s:=0;
           sd:=0;
           sa:=0;
           for i:=1 to n do
           begin
                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);
                   s:=s+A[i];
                   if A[i]>0 then sd:=sd+1;
                   if A[i]<0 then sa:=sa+1;
           end;
           writeln(‘_________________________________________’);
           writeln;
           writeln(‘Tong = ‘,s);
           writeln(‘Co ‘,sd, ‘ phan tu duong’);
           writeln(‘Co ‘,sa, ‘ phan tu am’);
           for i:=1 to n-1 do
                   for j:=1+i to n do
                           if A[i]<A[j] then
                           begin
                                   t:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=t;
                           end;
           if sd>=2 then write(‘Phan tu duong lon thu 2: ‘,A[2]);
           if sd<=1 then write(‘Khong co phan tu duong lon thu 2’);
           writeln;
           s:=0;
           for i:=1 to n do
           if A[i]<0 then
           begin
                   s:=A[i+1];
                   break;
           end;
           if sa>=2 then write(‘Phan tu duong lon thu 2: ‘, s);
           if sa<=1 then write(‘Khong co phan tu am lon thu 2’);
           for i:=1 to n-1 do
                   for j:=1+i to n do
                           if A[i]>A[j] then
                           begin
                                   t:=A[i];
                                   A[i]:=A[j];
                                   A[j]:=t;
                           end;
           writeln;
           write(‘Sap xep tang dan: ‘);
           for i:=1 to n do write(A[i]:3);
           readln
   end.

   Bình luận