Viết chương trình tìm số lớn nhất trong một dãy số nguyên

0 bình luận về “Viết chương trình tìm số lớn nhất trong một dãy số nguyên”

1. program bfhfh;

   uses crt;

   var max,i,n:integer;

         A: array[1..1000] of integer;

   begin

   clrscr;

   Write(‘Nhap so hang cua day’); Readln(n);

   For i:=1 to n do  

     Begin

        Write(‘So hang thu ‘,i,’ : ‘); Readln(A[i]);

     End;

   Max:=A[1];

   For i:=2 to n do

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

   Write(‘So lon nhay day: ‘,max);

   Readln

   End.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,max: longint;
   Begin
           Clrscr;
           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 A[i]>max then max:=A[i];
           Write(‘Max = ‘,max);
           Readln
   End.

   Bình luận