uses crt; var i,n,min:integer; a:array[1..1000000]of longint; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('a[',i,']= ');readln(a[i]); if i=1 then min:=a[i]; if min>a[i] then min:=a[i]; end; writeln('So nho nhat: ',min); readln end.
Uses Crt; Var a:array[1..1000] of integer; i,n,min:longint; Begin Write('Nhap so ptu n vao: '); Readln(n); Writeln('Nhap cac ptu vao: '); For i:= 1 to n do Begin Write('a[',i,']= '); Readln(a[i]); End; min:=a[1]; For i:=2 to n do If min>a[i] then min:=a[i]; End; Write('So be nhat trong day so la: ',min); Readln End. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks bạn nhá :333 * P/S: Hỏi gì thì comment bên dưới nhá :D
