Viết chương trình nhập vào số n.in ra số lớn nhất trong n số vừa nhập.mn giúp mik vs

0 bình luận về “Viết chương trình nhập vào số n.in ra số lớn nhất trong n số vừa nhập.mn giúp mik vs”

1. uses crt;

   var n,i,x,max: integer;

   Begin

            clrscr;

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

            max:=1;

            for i:=1 to n do

            begin

                     write(‘Nhap so thu ‘,i,’: ‘); readln(x);

                     if max<x then max:=x;

            end;

            write(‘So lon nhat: ‘,max);

            readln

   End.

   Bình luận

2. var a: array[1..100] of integer;

           max: integer; n, i: byte;

   Begin

       Write(‘n = ‘); readln(n);

       For i:=1 to n do

            Begin

               Write(‘nhap so thu ‘, i); readln(a[i]);

            End;

       Max:=a[1];

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

            Max:=a[i];

       Write(‘so lon nhat: ‘, max);

       Readln

   End.

   Bình luận