Tin học 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. 17/07/2021 By Claire 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.
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. Trả lời