a/
input: dãy số a1,a2,a3,...an
output: tổng và số lượng các số nguyên (âm) trong dãy A
b/
b1: nhập n
b2: nhập mảng (for i:=1 to n do begin {quá trình nhập} end;)
b3: trong quá trình nhập mảng thêm 1 câu lệnh if a[i]<0 then begin d:=d+1; s:=s+a[i]; end;
b4 xuất kết quả
c/
n=6
a[1]=8
a[2]=-7
a[3]=9
a[4]=0
a[5]=-9
a[6]=10