program Tin_hoc;

Uses crt;

var i,n,k,dem:integer;

     a;array[1..10000] of integer;

Begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' pha tu cua day A:');

for i:= 1 to n do readln(a[i]);

dem:=0;

write('Nhap k: ');readln(k);

for i:= 1 to n do if a[i] = k then inc(dem);

writeln('Day A co ',dem,' ki tu ',k,);

readln;

end.

Tham khảo

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: #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;

}

Mình chỉ viết một đoạn chương trình xong bạn đưa vào chương trình chính nhé , nếu có gì thắc mắc thì nhắn tin với mình.

1.

a) d:=0;

For i:=1 to n do if a[i]=k then inc(d);

b) dem:=0;

For i:=1 to n do if a[i] mod k=0 then inc(dem);

2.

a) dem:=0; d:=0;

For i:=1 to n do

begin

if a[i] mod 2=0 then inc(d);

if a[i] mod 2<>0 then inc(dem);

end;

b);

function nt(x: integer): boolean;

var i: integer;

begin

nt:=false;

if x<2 then exit;

for i:=2 to trunc(sqrt(x)) do

if x mod i = 0 then exit;

nt:=true;

end;

// Thân chương trình

d:=0;

for i:=1 to n do if nt(a[i]) then inc(d);

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.

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==50) dem++;

}

cout<<dem;

return 0;

}

Dấu này là sao

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x<0) dem++;

}

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,x,dem;

int main()

{

cin>>n;

dem=0;

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

{

cin>>x;

if (x==27) dem++;

}

cout<<dem;

return 0;

}

a)

Input: số nguyên dương n và dãy số A1,A2,...,An

Output: Số phần tử có giá trị bằng 27

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

Bước 1: Nhập n và dãy A1,A2,..,An

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

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

Bước 4: Nếu Ai = 27 thì Dem←Dem+1;

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