Question

viết chương trình tìm phần tử có giá trị bé nhất của dãy số gồm N phần tử số nguyên ( N<=100). Đưa ra màn hình giá trị phần tử tìm được và các ước số của nó. Mọi người giúp em với em cảm ơn ạ

Answer 1

uses crt;

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

n,i,min: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];

for i:=1 to n do

if min>a[i] then min:=a[i];

writeln('Gia tri nho nhat cua day la: ',min);

writeln('Cac uoc cua no la: ');

for i:=1 to min do

if min mod i=0 then write(i:4);

readln;

end.