Input: N, dãy số nguyên a1,a2,...,aN và k

Output: Số phần tử là bội của k

Thuật toán liệt kê:

Bước 1: Nhập N, dãy số nguyên a1,a2,...,aN và k

Bước 2: d←0; i←1;

Bước 3: Nếu i>N thì in ra d và kết thúc

Bước 4: Nếu a_i chia hết cho k thì d←d+1; 

Bước 5: i←i+1; quay lại bước 3

$a)$

Input: số nguyên n, dãy số nguyên A, số nguyên k

Output: số lượng phần tử có giá trị lớn hơn k

$b)$

Thuật toán:

B1: Nhập N, dãy số nguyên A, số nguyên k

B2: dem←0; i←1;

B3: Nếu i>N thì chuyển đến B6.

B4: Nếu A[i]>k thì dem←dem+1

B5: i←i+1; Quay lại B3.

B6: In dem ra màn hình và kết thúc.

$c)$

$+$ dem=0; i=1;

$+$ i>N (Sai): A[1] không lớn hơn k, i=i+1=2

$+$ i>N (Sai): A[2] lớn hơn k, dem=dem+1=1; i=i+1=3

$+$ i>N (Sai): A[3] không lớn hơn k; i=i+1=4

$+$ i>N (Sai): A[4] không lớn hơn k, i=i+1=5

$+$ i>N (Sai): A[5] lớn hơn k, dem=dem+1=2; i=i+1=6

$+$ i>N (Đúng): In dem là 6.

End

a: #incldue <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

cin>>n;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x>0) t=t+x;

}

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,k,dem;

int main()

{

cin>>n>>k;

dem=0;

for (i=1;i<=n; i++)

{

cin>>x;

if (x==k) dem++;

}

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,x,k,i,dem;

int main()

{

cin>>n>>k;

dem=0;

for (i=1; i<=n; i++)

{

cin>>x;

if (x==k) dem=dem+1;

}

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,k;

int main()

{

cin>>n>>k;

for (i=1; i<=n; i++)

{

cin>>x;

if (x==k) cout<<i<<" ";

}

return 0;

}

d: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=0;

for (i=1; i<=n; i++)

s=s+i;

cout<<s;

return 0;

}

uses crt;

var a:array[1..100]of integer;

i,n,dem,k:integer;

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);

dem:=0;

for i:=1 to n do 

  if a[i]=k then inc(dem);

writeln('Trong day co ',dem,' phan tu co gia tri bang ',k);

readln;

end.