viết chương trình tìm giá trị lớn nhất trong phần mềm free pascal

0 bình luận về “viết chương trình tìm giá trị lớn nhất trong phần mềm free pascal”

1. uses crt;
   var a:array[1..10000] of longint;
         n,i,max:longint;
   begin
         clrscr;
         write(‘Nhap so luong phan tu: ‘); readln(n);
         max:=a[1];
         for i:=1 to n do
               begin
                     write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
                     if a[i]>max then max:=a[i];
               end;
         write(‘Gia tri lon nhat: ‘,max);
         readln;
   end.

   Bình luận

2. Uses Crt;

   Type Mang = ARRAY[1..50] Of Integer;

   Var A:Mang;    

          N,i,Max:Integer;

   Begin   

          Write(‘Nhap N=’); 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(‘Phan tu lon nhat cua mang:’, Max);    

        Readln;

          End.

   Bình luận