Gọi a[1],a[2],a[3],a[4],a[5],a[6],lần lượt là 9;-5;17;0;2;15

a)b1: s<--a[1]+a[2]+a[3]+a[4]+a[5]+a[6]

b2:in kết quả ra màn hình

b)b1:s<--0;i<--1;

b2:if a[i]>0 then s<--s+a[i];

b3:In kết quả ra màn hình

c)

b1:s<--0;i<--1;

b2:if a[i]<0 then s<--s+a[i];

b3:In kết quả ra màn hình

d)

b1:min<--a[1];i<--2;

b2:if a[i]<min then min<--a[i];

b3:In kết quả ra màn hình

e)

b1:max<--a[1];i<--2;

b2:if a[i]>max then max<--a[i];

b3:In kết quả ra màn hình

Phần nhập:

write('nhap gia tri cac so');readln(n);

fo i := 1 to n do

begin

       readln(a[i]);

end;

s := 0;

max :=0;

min :=0;

t1 :=0;

t2 :=0;

a) s:= s+a[i];

write(s);

b)+c)if a[i] mod 2 = 0 then t1:=t1+a[i];

else t2:=t2+a[i];

write(t1);

write(t2);

d)min := a[1];

if a[1] > a[i] then a[i] := min

write(min);

e) max :=a[1];

write(max);

end.

if a[i] < a[i] then max := a[i]