Nhập dãy gồm n phần tử, tìm UCLN của số nhỏ nhất và số lớn nhất trong dãy.

0 bình luận về “Nhập dãy gồm n phần tử, tìm UCLN của số nhỏ nhất và số lớn nhất trong dãy.”

1. program uoc_chung_nho_nhat;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,max,min:integer;

   begin

          clrscr;

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

          for i:=1 to n do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          max:=A[1];  min:=A[1];

          for i:=2 to n do

                 begin

                        if A[i]>max then max:=A[i];

                        if A[i]<min then min:=A[i];

                 end;

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

          writeln(‘So nho nhat la: ‘,min);

          while max<>min do

                 if max>min then max:=max-min else min:=min-max;

          write(‘=> UCLN cua so nho nhat va lon nhat la: ‘,max);

          readln;

   end.

   Bình luận