program Baitap;
uses crt;
const mmax=300;
var B:array [1..mmax] of integer;
i:byte;
m,T,TD:integer;
begin
clrscr;
write ('m='); readln(m);
writeln('nhap du lieu mang B');
*(nhập dữ liệu)for i:=1 to n do
begin
write('B[',i,']=');
readln(B[i]);
end;
(*phần in dữ liệu)for i:=1 to m do write (B[i]:6);
a)T:=0
for i:=1 to m do write T:=T+B[i];
write('tong cac phan tu cua mang B la:',T:10);
b)TD:=0;
for i:=1 to m do
if B[i] >0 then write TD:=TD+B[i];
write('tong duong la:',TD:10);
readln;
end.
******* chú ý các phần mình bỏ trong ngoặc giải thích từng phần mình làm nha
còn mình kí hiệu a).b) là các câu mình làm nhes~.~
