A

A

A

Em tham khảo:

Để thành công trong cuộc sống thì phải có sự nỗ lực, kiên quyết và bất khuất nhưng ngoài ra còn một yếu tố quan trọng đó chính là giữ trong lòng ánh sáng của niềm tin trong cuộc sống. Niềm tin là một điều rất quan trọng trong tâm hồn lẫn thể xác. Niềm tin là một bí quyết, là động lực và là chìa khoá dẫn đến thành công. Nếu không kó niềm tin chúng ta như con người vô cảm, giả tạo. Nhờ niềm tin chúng ta quen biết lẫn nhau, tin tưởng và tạo nên những mối quan hệ tốt đẹp. Trong gia đình làng xóm trường lớp cũng vậy, mọi người cần niềm tin lẫn nhau thì mới tạo nên tập thể. Trong công cuộc đấu tranh mọi người cần có niềm tin vững chắc để có nguồn động lực chiến đấu. Vì vậy, luôn giữ trong lòng niềm tin là vô cùng quan trọng, nó chính là trọng điểm trong nước đường xây dựng thành công của chúng ta.

bạn tham khảo 

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.

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

i,n,dem1,dem2:integer;

begin

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

for i:=1 to n do

begin

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

end;

dem1:=0;

dem2:=0;

for i:=1 to n do

begin

if i = n then write(a[i])

else write(a[i],' ');

if a[i] mod 2 = 0 then dem1:=dem1+1

else dem2:=dem2+1;

end;

writeln('So cac phan tu chan la ',dem1);

write('So cac phan tu le la ',dem2);

readln;

end.

# Nhập mảng

m = int(input('Nhập số hàng: '))

n = int(input('Nhập số cột: '))

array = [[int(input()) for _ in range(n)] for _ in range(m)]

# In các giá trị chẵn

for i in range(m):

      for j in range(n):

           if array[i][j] % 2 == 0:

                print(array[i][j], end=' ')

      print()

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

cứu e với mn