Viết chương trình nhập vào 1 dãy số nguyên có n phần tử . In ra màn hình phần tử nhỏ nhất và phần tử lớn nhất

0 bình luận về “Viết chương trình nhập vào 1 dãy số nguyên có n phần tử . In ra màn hình phần tử nhỏ nhất và phần tử lớn nhất”

1. program phuongt;
   uses crt;
     var A: array[1..500] of integer;
           i, min, max, n: integer;
   begin
           clrscr;
           write(‘Nhap n = ‘); readln(n);
           for i:=1 to n do
           begin
                   write(‘A[‘, i, ‘] = ‘); readln(A[i]);
           end;
           min:=A[1];
           max:=A[1];
           for i:=1 to n do
           begin
                   if min>A[i] then min:=A[i];
                   if max<A[i] then max:=A[i];
           end;
           writeln(‘Phan tu lon nhat: ‘, max);
           write(‘Phan tu nho nhat: ‘, min);
           readln
   end.

   Bình luận