uses crt; var A: array[1..100] of integer; t,s,n,i: integer; begin clrscr; write('Nhap n ='); readln(n); for i:= 1 to n do begin write('A[',i,']='); readln(A[i]); end; for i:=1 to n do begin if A[i] mod 2=0 then s:=s+A[i]; if A[i] mod 2=1 then t:=t+A[i]; end; writeln('Tong cac so chan trong mang la: ',s); writeln('Tong cac so le trong mang la: ',t); readln; end.
Uses crt; Var a: array[1..1000] of integer; tsl,tsc,n,i: integer; Begin Clrscr; Write('Nhap n vao: '); Readln(n); For i:= 1 to n do Begin Write('Nhap a[',i,']= '); Readln(a[i]); End; For i:=1 to n do Begin if a[i] mod 2<>0 then tsl:=tsl+ a[i] else tsc:=tsc+ a[i]; End; Writeln; Writeln('Tong cac so chan trong day la: ',tsc); Writeln('Tong cac so le trong day la: ',tsl); Readln; End. *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!Đa tạ :333 *p/s: Thắc mắc,comment bên dưới!
