Xin các bạn giỏi giúp mình ạ BÀI TẬP VÀ THỰC HÀNH 3 Viết chương trình tạo Mảng A có thể chứa tối đa 100 số nguyên, nhập vào N (N <= 100) số nguyên (âm,dương) vào Mảng A đó, và Nhập 1 số nguyên K bất kỳ. Câu 1: Tính tổng giá trị các phần tử của Mảng là bội số của số nguyên K. Câu 2: Tìm phần tử có giá trị nhỏ nhất của Mảng, đưa ra màn hình chỉ số và giá trị của phần tử tìm được

Cc nè vinh, tao méc cô nè.

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

        Writeln('Cau 1: ',s);
        Write('Cau 2: ',min,' vi tri ',vtmin);
        Readln
End.