mình sure là C 

Program Gia_tri_duong_nho_nhat;Uses crt;Var a : array[1..100] of real;    n, i : longint;    min : real;    ok : boolean;Begin     Clrscr;     Write(' Nhap so phan tu cua mang : '); readln(N);     ok := false;     min := maxint;     For i := 1 to N do         Begin              Write(' Nhap phan tu thu ',i,' : '); readln(a[i]);              If (a[i] > 0) and (a[i] < min) then                 Begin                      min := a[i];                      ok := true;                 end;         end;     If ok then Write(' So duong nho nhat trong day la : ',min:3:2)           else Write(' -1 ');     readln;end.