TÍNH TỔNG CÁC PHẦN TỬ ÂM CỦA MẢNGINPUT A = 1 -4 5 6 -7OUTPUT...

2.

Tính tổng các phần tử âm của mảng

Input A = 1 -4 5 6 -7Output S = -11 Xác định bài toán:- Input: mảng a- Output: tổng các phần tử âm trong mảng. Thuật toán:- B1Nhập n, a

1

,a

2

, …, a

n

-

B2: i 1, s  0- B3: nếu a

i

< 0 thì s  s + a

i

-

B4: i i + 1

-

B5: nếu i > n, đưa ra S và kết thúc.- B6: quay lại bước 3. Chương trình: program tongam;uses crt;var n,i:byte; a:array[1..15] of integer; s:integer;beginclrscr; write('nhap so luong phan tu: '); readln(n); for i:=1 to n do begin write('nhap phan tu a[',i,'] = '); readln(a[i]); end; s:=0; for i:=1 to n do if a[i] < 0 then s:=s+a[i]; writeln('tong cac phan tu trong mang la: ',s);readlnend.