Program Tim_min; Uses crt; Var A:array[1..10000] of longint; i,m,min: longint; Begin Clrscr; Write('Nhap m: '); Readln(m); For i:=1 to m do Begin Write('A[',i,'] = '); Readln(A[i]); End;
min:=A[1]; For i:=2 to m do If A[i]<min then min:=A[i]; Write('So be nhat trong mang la: ',min); Readln End.
Program Tim_min; Uses crt; Var A:array[1..10000] of longint; i,m,min: longint; Begin Clrscr; Write('Nhap m: '); Readln(m); For i:=1 to m do Begin Write('A[',i,'] = '); Readln(A[i]); End;
min:=A[1]; For i:=2 to m do If A[i]<min then min:=A[i]; Write('So be nhat trong mang la: ',min); Readln
