Nhập vào một mảng,tìm số lớn nhất và lớn nhì có trong mảng ( không dùng cách sắp xếp nhé)

0 bình luận về “Nhập vào một mảng,tìm số lớn nhất và lớn nhì có trong mảng ( không dùng cách sắp xếp nhé)”

1. Pic.

   

   Bình luận

2. uses crt;
   var i,n,max,max1:longint; a:array[1..10000000]of longint;
   begin
   clrscr;
      write(‘Nhap so luong phan tu: ‘);readln(n);
      for i:=1 to n do 
         begin
            write(‘Nhap phan tu thu ‘,i,’: ‘);read(a[i]);
         end;
      for i:=1 to n do 
         if a[i]>max then max:=a[i];
      for i:=1 to n do 
         if (a[i]<>max)and(a[i]>max1) then max1:=a[i]; 
      writeln(‘So lon nhat: ‘,max);
      writeln(‘So lon nhi: ‘,max1);
   readln
   end.

   Bình luận