.............

Tim GTNN cua day so a1…aN!!!

Program timmin;
uses crt;
var n,i,min:integer;
a:array[1..1000] of integer;
BEGIN
clrscr;
repeat
write('Nhap so nguyen duong n: ');
readln(n);
until (n>0) and (n<=1000);
for i:=1 to n do
begin
write('Nhap A[',i,']: ');
readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
begin
if a[i]end;
writeln('GTNN cua day so la: ',min);
readln
END.