Viết chương trình nhập vào n số nguyên dương. Tìm số lớn nhất trong các số đó. In kết quả ra màn hình. Bạn nào giúp với, cảm ơn bạn nhiều Mik chưa học

0 bình luận về “Viết chương trình nhập vào n số nguyên dương. Tìm số lớn nhất trong các số đó. In kết quả ra màn hình. Bạn nào giúp với, cảm ơn bạn nhiều Mik chưa học”

1. Program FNG;
   Uses crt;
   Var n,max,d,a: longint;
   Begin
           Clrscr;
           max:=0; d:=0;
           Write(‘Nhap n: ‘); Readln(n);
           While d<=n do
           Begin
                   Write(‘Nhap so nguyen duong: ‘);
                   Readln(a);
                   If a>max then max:=a;
                   inc(d);
           End;
           Write(‘Max = ‘,max);
           Readln
   End.

   Bình luận