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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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

   Bình luận