Question

viết chương trình nhập n số nguyên từ bàn phím và in ra màn hình số lớn nhất ? (sử dụng biến mảng )

 

Answer 1

uses crt;
var n,i,max : integer;
a : array[1..100] of integer;
begin

   clrscr;
   write('Nhap so n :'); readln(n);
   for i:=1 to n do

     begin
        write('Nhap phan tu thu ',i,' la : '); readln(a[i]);
     end;
max:=a[1];
for i:=2 to n do if max<a[i] then max:=a[i];
write('So *** nhat trong mang la :', max);

min:=a[1];
for i:=2 to n do if min>a[i] then min:=a[i];
write('So nho nhat trong mang la :', min);
readln
end.