cho mảng a từ 1 đến n nhập n nhập mảng a từ 1 đến n tìm số lớn nhất trong mảng a

0 bình luận về “cho mảng a từ 1 đến n nhập n nhập mảng a từ 1 đến n tìm số lớn nhất trong mảng a”

1. *Pascal:

   program bt;

   uses crt;

   var a: array[1..n] of integer;

         n, i, max: integer;

   begin

     clrscr;

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

     for i := 1 to n do begin

       write(‘Nhap a[‘,i,’]=’);

       readln(a[i]);

     end;

     max := a[1];

     for i := 2 to n do if a[i] > max then max := a[i];

     writeln(‘So lon nhat trong mang la:’, max :3);

     readln

   end.

   *C/C++:

   void nhap(int a[], int n)

   {

       for (int i = 0; i < n; i++)

       {

           printf(“Nhap vao phan tu a[%d]: “, i);

           scanf(“%d”, &a[i]);

       }

   }

   int max(int a[], int n)

   {    

   int max = a[0];

       for (int i = 1; i < n; i++)

           if (max < a[i])

               max = a[i];

       return max;

   }

   int main()

   {    

   int a[1000];

       int n;

       printf(“\nNhap n = “);

       scanf(“%d”, &n);

       nhap(a, n);

       printf(“\nMax = %d”, max(a, n));

       return 0;

   }

   Xin câu trả lời hay nhất ạ :3

   Bình luận

2. program mang;

   uses crt;

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

         n,i,max: integer;

   Begin

            clrscr;

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

            for i:=1 to n do

            begin

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

            end;

            max:=A[1];

            for i:=1 to n do

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

            write(‘So lon nhat trong mang la: ‘,max);

            readln

   End.

   Bình luận