Tin học Tính tổng các số lẻ trong dãy số gồm N phần tử $a_{1}$;…$a_{N}$ (N ≤100) 19/07/2021 By Anna Tính tổng các số lẻ trong dãy số gồm N phần tử $a_{1}$;…$a_{N}$ (N ≤100)
program tinh_tong_le; uses crt; var A: array[1..100] of integer; n,i:b yte; 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]; write(‘Tong cac phan tu le la: ‘,t); readln end. Trả lời
program tinh_tongle; uses crt; var A:array[1..100] of integer; n,i:byte; 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]; write(‘Tong cac phan tu le la: ‘,t); readln; end. Còn nếu bạn muốn tính tổng số chẵn thì bạn đổi if A[i] mod 2<>0 thành if A[i] mod 2=0 nha. Trả lời