Program qtruong; Uses crt; Var n, i, min, so_am: integer;
A: array[1..1000] of integer; 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:=2 to n do if min>A[i] then min:=A[i]; So_am:=0; For i:=1 to n do if A[i]<0 then inc(so_am); Writeln('So nho nhat la: ',min); Writeln('Co tat ca ',so_am,' so am'); Readln End.
program bai_giai; uses crt; var A:array[1..10000] of integer; n,i,nn:integer; begin clrscr; readln(n); for i:=1 to n do read(A[i]); nn:=A[1]; for i:=2 to n do if A[i]<nn then nn:=A[i]; writeln(nn); for i:=1 to n do if A[i]<0 then write(A[i],' '); readln; end.
