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

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ân tử âm
D Sắp xếp theo tăng dần

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

Viết một bình luận