#include <bits/stdc++.h>

using namespace std;

long long a[10000],n,i,t;

int main()

{

cin>>n;

t=0;

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

{

cin>>a[i];

t=t+a[i];

}

for (i=1; i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

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

if (a[i] %2==0) dem++;

cout<<dem<<endl;

cout<<t;

return 0;

}

uses crt;

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

n,i,t,nn,kt:integer;

begin

clrscr;

readln(n);

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

t:=1;

for i:=1 to n do 

  if a[i] mod 3=0 then t:=t*a[i];

writeln(t);

kt:=0;

nn:=32567;

for i:=1 to n do 

  if a[i] mod 3=0 then 

begin

if nn>a[i] then nn:=a[i];

kt:=1;

end;

if kt=0 then writeln('Khong co so chia het cho 3')

else writeln('So nho nhat chia het cho 3 la: ',nn);

for i:=1 to n do 

  if nn=a[i] then write(i:4);

writeln;

for i:=n downto 1 do 

  write(a[i]:4);

readln;

end.

Bài 2:

Uses crt;

Var a:array[1..200]of integer;

i,n,t:integer;

Begin

Clrscr;

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

For i:=1 to n do 

  Begin

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

End;

t:=0;

for i:=1 to n do 

 if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.

Bài 1. Nhập mảng A gồm n phần tử, rồi in mảng đó ra màn hình.

program BaiTap;

var

      A: array[1..150] of integer;

      N, i: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      writeln('Mang A vua nhap la:');

      for i := 1 to N do

            write(A[i], ' ');

      readln;

end.

Bài 2. Nhập mảng A gồm n phần tư, rồi in tổng các phần tử mảng đó ra màn hình.

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      sum := 0;

      for i := 1 to N do

            sum := sum + A[i];

      writeln('Tong cac phan tu trong mang la: ', sum);

      readln;

end.

Bài 3. Nhập mảng A gồm n phần tử, rồi in tổng các phần tử dầu và phần tủ cuối của mảng đó ra màn hình.

program BaiTap;

var

      A: array[1..150] of integer;

      N, i, sum: integer;

begin

      write('Nhap so phan tu cua mang A (N <= 150): ');

      readln(N);

      for i := 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(A[i]);

      end;

      sum := A[1] + A[N];

      writeln('Tong cua phan tu dau va cuoi mang la: ', sum);

      readln;

end.

Bài 1

Sửa đề: Thêm điều kiện của các phần tử trong mảng là số

Var a:array[1..1000] of real;

i,n:integer;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:10:2);

Readln

End.

giúp em với ạ em cần gấp :(

#include <bits/stdc++.h>

using namespace std;

long long a[10],i,dem;

int main()

{

for (i=1; i<=10; i++) cin>>a[i];

for (i=1; i<=10; i++) cout<<a[i]<<" ";

cout<<endl;

dem=0;

for (i=1; i<=10; i++) if (a[i]%3==0) dem++;

cout<<dem;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,i,a[10000];

int main()

{

cin>>n;

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

cin>>a[i];

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

Program HOC24;

var i,d,n,x: integer;

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

begin

write('Nhap so phan tu: '); readln(n);

for i:=1 to n do 

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

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

d:=0;

for i:=1 to n do if a[i] mod x=0 then d:=d+1;

write(d);

readln

end.

em không biết

6:

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,A[100],i,dem=0;

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

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

if (A[i]%2!=0) dem++;

cout<<dem;

return 0;

}

5:

#include <bits/stdc++.h>

using namespace std;

int main()

{

long long n,nn=1e6,A[1000];

cin>>n;

for (int i=1; i<=n; i++) cin>>A[i];

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

nn=min(nn,A[i]);

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

if (nn==A[i]) cout<<i<<" ";

return 0;

}

Uses crt;

Var a:array[1..6] of integer;

I,s:integer;

Begin

Clrscr;

For i:=1 to 6 do 

Begin

Write('a[',i,']='); readln(a[i]);

End;

S:=1;

For i:=1 to 6 do

If a[i] mod 3=0 then s:=s*a[i];

Writeln(s);

Readln;

End.