Cho dãy số gồm N phần tử là số nguyên. Yêu cầu: Tìm phần tử lớn nhì của dãy. Giúp mình với !!!!!

0 bình luận về “Cho dãy số gồm N phần tử là số nguyên. Yêu cầu: Tìm phần tử lớn nhì của dãy. Giúp mình với !!!!!”

1. program maxnhi;

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

         n,i,j,tg:integer;

   begin

   clrscr;

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

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

   for i:=1 to n do

    begin

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

     readln(A[i]);

    end;

   write(‘mang vua nhap la: ‘);

   for i:=1 to n do

    write(A[i],’ ‘);

   writeln;

   for i:=1 to n-1 do

    for j:=i+1 to n do

     if A[i]<A[i] then

      begin

       tg:=A[i];

       A[i]:=A[j];

       A[j]:=tg;

      end;

   i:=2;

   while A[i]=A[1] do

     i:=i+1;

   write(‘Phan tu lon nhi cua day la: ‘,A[i]);

   readln

   end.

   Bình luận

2. uses crt;
   var n,i,max,nhi:integer;
       a:array[0..100] of integer;
   BEGIN
           clrscr;
           {NHAP DAY SO}
           write(‘Nhap n:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]’);
                   readln(a[i]);
           end;
           {TIM PHAN TU LON NHAT}
           max:=a[1];
           for i:=2 to n do
                   if a[i]>max then max:=a[i];
           {TIM PHAN TU LON NHI}
           for i:=1 to n do
                   if a[i]<max then
                   begin
                           nhi:=a[i];
                           break
                   end;
           for i:=1 to n do
                   if (a[i]<max) and (a[i]>nhi) then
                   nhi:=a[i];
           write(‘So lon nhi trong day so la:’,nhi);
           readln
   END.

   Bình luận