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 lệnh array nha.
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.