Program Mang; Uses crt; Var A:array[1..10000] of longint; i,min: longint; 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 A[i]<min then min:=A[i]; Write('Gia tri nho nhat la ',min); Readln End.
program bai_giai; uses crt; var A:array[1..10000] of integer; n,i,min:integer; begin clrscr; readln(n); for i:=1 to n do read(A[i]); min:=A[1]; for i:=2 to n do if A[i]<min then min:=A[i]; write(min); readln; end.
