Question

viết chương trình nhập n từ bàn phím, in ra màn hình tổng các số chẵn, những số âm (dùng biến mảng)

mk cần gấp mn giúp mk vs

Answer 1

var a:array[1..32000] of integer;

i,n,T,S:integer;

begin

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];

writeln('tong cac so chan la:',T);

S:=0;

for i:=1 to n do if a[i]<0 then S:=S+a[i];

writeln('tong cac so am la:',S);

readln

end.

Answer 2

Tổng số chẵn và âm chung hay là tổng số chẵn và số âm riêng ạ.