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

0 bình luận về “. 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. 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.

   Bình luận