Viết chương trình cho biết Input: nhập n số hạng Output: in ra số lớn nhất

0 bình luận về “Viết chương trình cho biết Input: nhập n số hạng Output: in ra số lớn nhất”

1. *Dùng mảng:

   program solonnhat;

   uses crt;

   var A:array[1..100] of integer;

         n,i,max:integer;

   begin

        clrscr;

        write(‘Nhap so n: ‘);   readln(n);

        for i:=1 to n do

            begin

                write(‘So thu ‘,i,’: ‘);  readln(A[i]);

            end;

        max:=A[1];

        for i:=2 to n do

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

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

        readln;

   end.

   *Không dùng mảng

   program solonnhat;

   uses crt;

   var n,i,a,max:integer;

   begin

        clrscr;

        write(‘Ban can so sanh bao nhieu so’);   readln(n);

        write(‘So thu nhat: ‘);   readln(a);

        max:=a;

        for i:=1 to n do

             begin

                  write(‘So thu ‘,i,’: ‘);  readln(a);

                  if a>max then max:=a;

             endl;

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

        readln;

   end.

        

   Bình luận