Viết chương trình nhập vào n tìm ra số lớn nhất trong n số vừa nhập Ai giúp mình với, mình cảm ơn ạ

0 bình luận về “Viết chương trình nhập vào n tìm ra số lớn nhất trong n số vừa nhập Ai giúp mình với, mình cảm ơn ạ”

1. 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:=0;

   For i:=1 to N do

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

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

   Readln;

   End.

   Bình luận

2. program lon_nhat;

   uses crt;

   var n,i,x,max: integer;

   Begin

            clrscr;

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

            max:=1;

            for i:=1 to n do

            begin

                     write(‘Nhap so thu ‘,i,’: ); readln(x);

                     if max<x then max:=x;

            end;

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

            readln

   End.

   Bình luận