program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.

# Nhập dãy số từ bàn phím
lst = list(map(int, input("Nhập dãy số cách nhau bởi dấu cách: ").split()))

# Sắp xếp dãy số theo thuật toán sắp xếp chọn
for i in range(len(lst)):
   min_idx = i
   for j in range(i+1, len(lst)):
       if lst[j] < lst[min_idx]:
           min_idx = j
   lst[i], lst[min_idx] = lst[min_idx], lst[i]

# In kết quả ra màn hình
print("Dãy số đã sắp xếp:", lst)

m = int(input("Nhập số hàng của ma trận: "))

n = int(input("Nhập số cột của ma trận: "))

A = []

for i in range(m):

  # Nhập một dòng gồm n số nguyên cách nhau bởi dấu cách

  row = list(map(int, input(f"Nhập dòng {i+1}: ").split()))

  A.append(row)

# In ma trận A ra màn hình

for i in range(m):

  for j in range(n):

   print(A[i][j], end=" ")

  print()

a)

m = int(input("Nhập số dòng của ma trận: "))

n = int(input("Nhập số cột của ma trận: "))

# Khởi tạo ma trận A với kích thước m x n

A = []

for i in range(m):

  row = list(map(int, input(f"Nhập dòng thứ {i+1} (gồm {n} số cách nhau bởi dấu cách): ").split()))

  A.append(row)

# In ma trận A ra màn hình

print("Ma trận A:")

for row in A:

  print(*row)

# Tính tổng các phần tử trong ma trận A

total = 0

for row in A:

  total += sum(row)

print("Tổng các phần tử trong ma trận A là:", total)

b)

# Tìm dòng có tổng các phần tử lớn nhất

max_sum = max(sum(row) for row in A)

print("Dòng có tổng các phần tử lớn nhất là:")

for i, row in enumerate(A):

  if sum(row) == max_sum:

  print(f"Dòng thứ {i+1}: {row}")

c)

Tìm các giá trị phân biệt trong ma trận A

  distinct_values = set()

for row in A:

distinct_values.update(set(row))

# In các giá trị phân biệt ra màn hình

print("Các giá trị phân biệt trong ma trận:")

print(*distinct_values)

d)

k=int(input("nhập số cần tìm"))

l=0

for i in range(m):

  for j in range(n):

   if k==a[i][j]:

    l=l+1

    print('xuất hiện ở các vị trí',i,j)

print('số',k,' xuất hiện',l,' lần')

A=input("Nhập dãy các số cách nhau bởi dấu cách: ")

S=A.split()

k = 0

n=[]

c = len(S)

m1 = min(S)

m2 = max(S)

for x in S:

          n.append(float(x))

b=[]

for a in n :

          if a % 2 != 0 :

                   b.append(float(a))

S=0

for i in b:

    k=k+i

print("Số lượng các số đã nhập",c)

print("Tổng các số lẻ là", k)

print("Số nhỏ nhất là", m1)

print("Số lớn nhất là ", m2)

A=input("nhập xâu:")
N=A.split()
B=[]
tl= 0
for i in N:
    B.append(int(i))
    max=B[0]
    min=B[0]
print("Có",len(B),"số đã nhập")
for k in range(len(B)):
    if k%2 != 0:
        tl=tl + k
print("tổng các số lẽ là:",tl)
for e in range(len(B)):
    if B[e]>max:
        max = B[e]
        vtnn = e 
    if B[e]<=min:
        min = B[e]
        vtln = e
print("số lớn nhất là:",max,"ở vị trí:",vtnn)
print("số nhỏ nhất là:",min,"ở vị trí:",vtln)

n=0

m=[]

a=0

s=0

S= input (" Nhập dãy các số cách nhau bởi 1 dấu cách :")

A=S.Split ()

b=int(A[0])

If int (A [i])%2==1:

s=s+int(A[i])

If int (A[i])>a:

   a=int(A[i])

   n=i

If b>=int (A[i]):

    b=int(A[i])

    m.append(i)

primt (" số lượng các số đã nhập ",len(A))

primt(" tổng các số lẻ là ",s)

primt(" số lớn nhất là :",a"tại vị trí nhỏ nhất ",n+)

primt("số nhỏ nhất là :",b,"tại vị trí nhỏ nhất:"m[lent(n)-1])

*Viết chương trình nhập 10 số nguyên từ bàn phím. In ra màn hình dãy số vừa nhập

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

  write(a[i]:4);

readln;

end.

*Viết chương trình nhập 10 số nguyên từ bàn phím .in ra các số lẻ

uses crt;

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

i:integer;

begin

clrscr;

for i:=1 to 10 do

begin

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

end;

for i:=1 to 10 do 

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

readln;

end.

*Viết chương chình nhập N số nguyên từ bàn phím in ra màn hình tổng các số cần nhập

uses crt;

var a:array[1..100]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 

  t:=t+a[i];

writeln(t);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

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

int main()

{

cin>>n;

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

dem=0;

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

if (a[i]%3==0) 

{

cout<<a[i]<<" ";

dem++;

}

cout<<endl;

cout<<dem;

return 0;

}

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

i,n,max:integer;

Begin

Write('Nhap so luong phan tu n = ');readln(n);

For i:=1 to n do

Begin

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

End;

Write('Cac diem vua nhap la: ');

For i:=1 to n do 

Write(a[i]:8);

writeln;

max:=a[1];

For i:=2 to n do

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

write('So lon nhat la ',max);

Readln

End.