program ct;

uses crt;

var i,n,Min,k,d:integer;

A:array[1..100] of integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:=1 to n do

begin

  write('nhap mang A[',i,']='); readln(A[i]);

end;

Min:=A[1];

  for i:=2 to n do

  if Min>A[i] then Min:=A[i];

  writeln('so nho nhat cua day la',Min);

write('nhap khoa k='); readln(k);

    d:=0;

    for i:=1 to n do

    if A[i]=k then d:=d+1;

    if d=0 then writeln(k,' khong co trong day') 

    else

    writeln(k,' xuat hien',d:2,' lan trong day');

readln

end.

uses crt;
var n,i,k,min,dem:integer;
    a:array[0..100] of integer;
BEGIN
        clrscr;
        {Nhap day so va K}
        write('Nhap n:'); readln(n);
        write('Nhap K:'); readln(k);
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;

        {Tim cac phan tu co gia tri nho nhat}
        min:=a[1];
        for i:=2 to n do
                if a[i]<min then min:=a[i];

        {Dem so lan xuat hien cua K}
        dem:=0;
        for i:=1 to n do
                if a[i]=k then dem:=dem+1;

        {GHI KET QUA RA MAN HINH}
        writeln('Phan tu co gia tri nho nhat trong day la:',min);
        write('So ',k,' xuat hien ',dem,' lan.');
        readln
END.

Chúc bạn học tốt