PASCAL BÀI 1 : Nhập một mảng gồm n số nguyên, xuất ra số nhỏ nhất và vị trí của số đó trong mảng trên Ví dụ 1: INPUT 4 5 6 7 8 OUTPUT Min: 5 Vi tri: 1 Ví dụ 2: INPUT 5 -5 5 6 -7 8 OUTPUT Min: -7 Vi tri: 4 BÀI 2 : Đếm số lần xuất hiện của giá trị X trong mảng A. Ví dụ: INPUT 4 5 5 6 5 8 OUTPUT 2

Bài 1:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,min,vtmin: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        min:=maxlongint;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<min then
                Begin
                        min:=A[i];
                        vtmin:=i;
                End;
        End;

        Writeln('Min: ',min);
        Write('Vi tri: ',vtmin);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,x,d: longint;
Begin
        Clrscr;
        Write('Nhap n,x: '); Readln(n,x);
        d:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]=x then inc(d);
        End;
        Write(d);
        Readln
End.