. Viết chương trình nhập vào mảng B gồm 200 số nguyên. Hãy đưa ra tổng các số dương trong dãy B, ai giúp em phần này với ạ
1 câu trả lời
Program BTH;
uses crt;
var a:array [1..200] of integer;
n, i: integer;
chan: integer;
begin
clrscr;
write('Nhap so phan tu co trong mang: '); readln(n);
for i:=1 to n do
begin
write('Nhap vao phan tu thu A[',i,']: '); readln(A[i]);
end;
for i:=1 to n do
begin
if (A[i] mod 2 = 0) then
chan:=chan+A[i];
end;
writeln('Tong so chan co trong day la: ',chan);
readln;
end.
