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 và tổng của các số lẻ. in kết quả ra màn hình
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 và 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 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!
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.