Viết chương trình nhập vào dãy số nguyên in ra màn hình tổng các số dương và chia hết cho 3

0 bình luận về “Viết chương trình nhập vào dãy số nguyên in ra màn hình tổng các số dương và chia hết cho 3”

1. Program dreamcraft375;

   var a: array[1..32000] of integer;

   i,n: integer;

   t: longint;

   begin

   write(‘Nhap so phan tu cua day : ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap so thu ‘,i,’ : ‘); readln(a[i]);

   end;

   t:=0;

   for i:=1 to n do

   if (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];

   write(‘Tong cac so duong chia het cho 3 la : ‘,t);

   readln

   end.

   Bình luận

2. Program thanhnguyendat ;

   var a: array[1..31000] of integer;

   i,n: integer;

   t: longint;

   begin

   write(‘Nhap so phan tu cua day : ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap so thu ‘,i,’ : ‘); readln(a[i]);

   end;

   t:=0;

   for i:=1 to n do

   if (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];

   write(‘Tong cac so duong chia het cho 3 la : ‘,t);

   End.;

   Bình luận