program baigiai;

uses crt;

var B:array[1..300] of integer;

      n,i:integer;

      t,td:longint;

begin

clrscr;

write('Nhap so luong phan tu n:');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

t:=0;  td:=0;

for i:=1 to n do

 begin

  write('B[',i,']= ');

  readln(B[i]);

  t:=t+B[i];

  if B[i]>0 then td:=td+B[i];

 end;

writeln('Tong cac phan tu cua mang la: ',t);

writeln('Tong cac phan tu duong cua mang la: ',td);

readln

end.

bạn cứ copy zô pascal mà chạy nha. đúng không sai đâu

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~.~