Viết chương trình nhập vào n số nguyên. Tìm số lớn nhất trong các số đó và in kết quả ra màn hình.

0 bình luận về “Viết chương trình nhập vào n số nguyên. Tìm số lớn nhất trong các số đó và in kết quả ra màn hình.”

1. program oken;

   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(‘phan tu lon nhat cua mang: ‘,max);

   readln;

   end.

   Bình luận

2. Program BTH;
   uses crt;
   var n,i,max:longint;
   a:array [1..10000] of longint;
   Begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           write(‘a[1]: ‘);readln(a[1]);
           max:=a[1];
           For i:=2 to n do
           Begin
                   write(‘a[‘,i,’]: ‘);readln(a[i]);
                   If max<a[i] then max:=a[i];
           end;
           writeln(‘So lon nhat co trong day la: ‘,max);
           readln;
   end.

   Bình luận