a: #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%2!=0) dem++;

}

cout<<dem;

return 0;

}

program BaiToanMang;

var
  A: array[1..100] of integer;
  N, i, demChan, tongLeChia3: integer;

begin
  write('Nhap so phan tu cua mang: ');
  readln(N);
  writeln('Nhap cac phan tu cua mang: ');
  for i := 1 to N do
  begin
    write('a[', i, ']= ');
    readln(A[i]);
  end;
  tongLeChia3 := 0;
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 1) and (A[i] mod 3 = 0) then
    begin
      tongLeChia3 := tongLeChia3 + A[i];
    end;
  end;
  writeln('Tong cac so le chia het cho 3: ', tongLeChia3);
  demChan := 0;
  for i := 2 to N do
  begin
    if (A[i] mod 2 = 0) and (i mod 2 = 1) then
    begin
      demChan := demChan + 1;
    end;
  end;
  writeln('So phan tu chan o vi tri le: ', demChan);
  writeln('Cac so chan chia het cho 5: ');
  for i := 1 to N do
  begin
    if (A[i] mod 2 = 0) and (A[i] mod 5 = 0) then
    begin
      write(A[i], ' ');
    end;
  end;
end.

ko bt đúng ko ko dùng pascal nhiều

b dùng pascal hay python V:

#include <bits/stdc++.h>

using namespace std;

long long x,i,n,nn;

int main()

{

cin>>n;

int dem=0;

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

{

cin>>x;

if (x==0) dem++;

}

cout<<dem;

return 0;

}

Input:N nguyên dương ,dãy A gồm N số nguyên A1,A2,...An, số nguyên k

Output:- số lg các số bằng 0 trong dãy

- slg các số chẵn trong dãy

Tổng các số là bội của k trong dãy 

- số lg các số các số bằng k tong dãy

+minh hoạ: N=8

....

a, Xác định bài toán:

+Input: Dãy số a1,….,an và (0,5đ)

+Output: Số lượng số hạng trong dãy số a1,….,an có giá trị bằng 9 (0,5đ)

b, Thuật toán:

Bước 1.Nhập N và dãy số a1,….,an;

Bước 2. i ←1; n ← 0; (0,25đ)

Bước 3. Nếu aithì n ←n+1;

Bước 4. i → i+1 (0,25đ)

Bước 5. Nếu i > N thì thông báo số lượng số hạng bằng k trong dãy đã cho là n và kết thúc; (0,25đ)

Bước 6. Quay lại bước 3.

Bước 1: Nhập n và nhập dãy số

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

Bước 3: Nếu a[i] mod 3=0 và a[i] mod 5=0 thì dem←dem+1;

i←i+1;

Bước 4: Nếu i<=n thì quay lại bước 3

Bước 5: xuất dem

Bước 6: Kết thúc

2:

#include <bits/stdc++.h>

using namespace std;

long long a[100],n,i,t,k;

int main()

{

cin>>n>>k;

t=0;

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

{

cin>>x;

if (x%k==0) t=t+x;

}

cout<<t;

return 0;

}

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

s:real;

begin

clrscr;

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

for i:=1 to n do 

begin

repeat

write('A[',i,']='); readln(a[i]);

until a[i]>0;

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do

  if a[i]>10 then inc(dem);

writeln('So phan tu lon hon 10 la: ',dem);

dem1:=0;

dem2:=0;

for i:=1 to n do 

begin

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

else inc(dem2);

end;

writeln('So luong so chan la: ',dem1);

writeln('So luong so le la: ',dem2);

t:=0;

s:=1;

for i:=1 to n do 

  begin

if (i mod 2=0) and (a[i] mod 2<>1) then t:=t+a[i];

if (i mod 2=1) and (a[i] mod 2=0) then s:=s*a[i];

end;

writeln('Tong cac so o vi tri chan co gia tri le la: ',t);

writeln('Tich cac so o vi tri le co gia tri chan la: ',s:4:2);

writeln('Cac so le la: ');

for i:=1 to n do 

  if a[i] mod 2<>0 then write(a[i]:4);

writeln;

writeln('Cac so chan va lon hon 10 la: ');

for i:=1 to n do 

  if (a[i] mod 2=0) and (a[i]>10) then write(a[i]:4);

readln;

end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i] mod 3=0 then inc(dem);

writeln(dem);

readln;

end.