Question

Viết chương trình nhập vào mảng A gồm N số nguyên từ bàn phím.In ra mắt hình số lớn nhất trong dãy vừa nhập

Answer 1

program TimSoLonNhat;

var

     n, i, max: integer;

     a: array[1..100] of integer;

begin

     write('Nhap so phan tu cua day: ');

     readln(n);

     write('Nhap day so n: ');

     for i := 1 to n do

     begin

          readln(a[i]);

          if i = 1 then

               max := a[1]

          else if a[i] > max then

               max := a[i];

     end;

     writeln('So lon nhat trong day la: ', max);

     readln;

end.