viết chương trình nhập vào một dãy số nguyên có tối đa 50 phần tử vào biếng mảng A thực hiện các việc sau:
+tính tổng các phần tử của dãy số vừa nhập
+in ra các số lẻ vừa nhập và tính tổng của chúng(số lẻ không chia hết cho 2)
+in ra các số chẵn vừa nhập và tính tổng của chúng ( số chẵn là số chia hết cho 2)
Giúp em với ạ!!!
uses crt;
var a:array[1..50]of integer;
i,n,t,t1,t2: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
t:=t+a[i];
writeln('Tong cua day so la: ',t);
writeln('Cac so le la: ');
t1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so le la: ',t1);
writeln('Cac so chan la: ');
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so chan la: ',t2);
readln;
end.
