Viết chương trình nhập vào số N. Tìm ra số lớn nhất trong N số vừa nhập. Cảm ơn trước nha!

0 bình luận về “Viết chương trình nhập vào số N. Tìm ra số lớn nhất trong N số vừa nhập. Cảm ơn trước nha!”

1. Program ngocnek; 

   Uses crt; 

   Var M:array[1..100] of integer;

           I,n,max : integer;  

   Begin

    Clrscr ;

    Write(‘nhap so n: ‘); 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 trong cac so vua nhap la:’, max); 

     Readln

   End.

   //Chúc bn học tốt nha !

   Bình luận

2. Program So_lon_nhat;

   Uses crt;

   Var a : array [1..100] of integer;

        i,N,max : integer;

   Begin

   Clrscr;

   Write(‘nhap so phan tu cua mang: ‘); readln(N);

   For i:=1 to N do

     Begin

      Write(‘a[‘,i,’]: ‘); readln(a[i]);

     End;

   max:=a[1];

   For i:=2 to N do

      If max<a[i] then max:=a[i];

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

   Readln;

   End.

   Bình luận