Viết chương trình nhập một dãy M( với M được nhập từ bàn phím )tìm và thông báo ra màn hình số lớn nhất trong dãy Nhanh nhá , mai mk thi r

0 bình luận về “Viết chương trình nhập một dãy M( với M được nhập từ bàn phím )tìm và thông báo ra màn hình số lớn nhất trong dãy Nhanh nhá , mai mk thi r”

1. program lon_nhat;

   uses crt;

   var M:array[1..1000] of integer;

        n,i,max:integer;

   begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);  readln(n);

          for i:=1 to n do

                 begin

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

                 end;

          max:=M[1];

          for i:=2 to n do

                 if M[i]>max then max:=M[i];

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

          readln;

   end.

   Bình luận

2. uses crt;

   var M:array[1..1000] of integer;

   n,i,max:integer;

   begin

          clrscr;

          write(‘Nhap so luong phan tu: ‘);  readln(n);

          for i:=1 to n do

                 begin

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

                 end;

          max:=m[1];

          for i:=2 to n do

                 if m[i]>max then max:=m[i];

          writeln(‘So lon nhat la: ‘,max);

          readln;

   end.

   Bình luận