1 câu trả lời
uses crt;
var A : array [1 .. 100] of integer;
i, N, M : integer;
begin
clrscr;
write('Nhap so phan tu = '); readln(N);
write('Nhap day gom ', N, ' so : ');
M := -1;
for i := 1 to N do
begin
read(A[i]);
if A[i] > 0 then M := A[i];
end;
for i := 1 to N do
if (A[i] > 0) and (A[i] < M) then M := A[i];
if M <> -1 then write('So duong nho nhat: ', M)
else write('Day khong có so duong');
readln
end.
