Cho dãy A gồm n phân tử gồm a1 ,a2 ...an số nguyên Câu a đưa ra vị trí khoá k trong dãy a ,k được nhập từ bàn phím

Bài 1.

Bước 1. Nhập N và dãy số a1,a2,...,aNa1,a2,...,aN

Bước 2. i←1i←1, S←0S←0

Bước 3. i←i+1i←i+1

Bước 4. 4.1 Nếu i>Ni>N thì kết thúc thuật toán và đưa ra kết quả.

4.2 ai≥0ai≥0 thì quay lại bước 3

4.3 S←S+aiS←S+ai rồi quay lại bước 3

Program BTT;
Uses crt;
Var A:array[1..10000] of longint;
    i,n,k,min: Longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = '); Readln(A[i]);
        End;

        Write('Nhap k: '); Readln(k);
        For i:=1 to n do
                If A[i]=k then
                Begin
                        Write('A[',i,']');
                        Writeln;
                End; 
        Writeln;

        min:=A[1];
        For i:=2 to n do
                If A[i]<min then min:=A[i];
        Write('GTNN la: ',min);
        Readln
End.