Viết chương trình nhập vào 5 số nguyên Xuất ra có bao nhiêu số lẻ và bao nhiêu số chẵn

Viết chương trình nhập 1 mạng gồm n số nguyên tính tổng các số chẵn ѵà tổng c̠ủa̠ các số lẻ．in kết quả ra màn hình

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 ѵà chọn Ɩà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!

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 ѵà chọn Ɩà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!

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 ѵà chọn Ɩà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!