Giúp mình với mai mình thi học kỳ rồi ???????? Nhập vào 1 mảng các số lẻ không quá 50 phần tử. Tính tổng các phần tử chia cho 3 dư 2

0 bình luận về “Giúp mình với mai mình thi học kỳ rồi ???????? Nhập vào 1 mảng các số lẻ không quá 50 phần tử. Tính tổng các phần tử chia cho 3 dư 2”

1. uses crt;
   var a : array[1..100] of integer;
   i,n,s : integer;
   begin clrscr;    s:=0;
   write(‘Nhap n:’); readln(n);
   for i:=1 to n do begin write(‘Nhap a[‘,i,’]=’); readln(a[i]);
   end;
   for i:=1 to n do if a[i] mod 3 = 2 then s:=s+a[i];
   write(s);
   readln
   end.

   Bình luận

2. program ct;

   uses crt;

   var i,n,S:integer;

         A:array[1..50] of integer;

   begin

   clrscr;

     write(‘nhap n:=’);readln(n);

        for i:=1 to n do

   begin

     write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

     S:=0;

       for i:=1 to n do

           if A[i] mod 3=2 then S:=S+A[i];

       writeln(‘tong la:’,S);

   readln

   end.

   Bình luận