Question

Viết chương trình nhập N số nguyên từ bàn phim và xuất ra màn hình( sử dụng mảng)

a, tổng các số chẵn vừa nhập

b, tổng các số lẻ vừa nhập

Mọi người ơi giúp em cái mai thi rồi :(

Answer 1

uses crt;

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

n,i,tc,tl:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

tc:=0;

tl:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then tc:=tc+a[i]

else tl:=tl+a[i];

end;

writeln('Tong cac so chan la: ',tc);

writeln('Tong cac so le la: ',tl);

readln;

end.