Tìm phân tử lớn nhất dãy số nguyên với N<=250 theo trực tiếp hoặc gián tiếp

0 bình luận về “Tìm phân tử lớn nhất dãy số nguyên với N<=250 theo trực tiếp hoặc gián tiếp”

1. bạn có thể tham khảo

   

   Trả lời

2. uses crt;

   var a: array [1..250] of longint;

         n,i,j:byte;

         t:longint;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   write(‘Nhap so thu ‘,i); read(a[i]);

   for i:=1 to n-1 do
                   for j:=i+1 to n do
                           if a[i]<a[j] then
                           begin
                                   t:=a[j];
                                   a[j]:=a[i];
                                   a[i]:=t;
                           end;

   clrscr;

   write(‘Phan tu lon nhat la, ‘,a[1]);

   end.

   Trả lời