Question

Dùng kiểu khai báo mảng để viết chương trình nhập vào một dãy số nguyên N phần tử.In ra màn hình tổng các phần tử

a)các phần tử không âm

b)các phần tử lẻ

c)các phần tử chẵn

Answer 1

var i,n,S,T,P:integer;

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

begin

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

for i:=1 to n do

begin

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

end;

S:=0; T:=0; P:=0;

for i:=1 to n do

begin

if a[i]>=0 then S:=S+a[i];

if a[i] mod 2=1 then T:=T+a[i];

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

end;

writeln('tong cac phan tu khong am la:',S);

writeln('tong cac phan tu le la:',T);

writeln('tong cac phan tu chan la:',P);

readln

end.