cho số nguyên dương n và dãy số nguyên a1,a2,…an tính và hiện thị các phần tử chia hết cho 3

0 bình luận về “cho số nguyên dương n và dãy số nguyên a1,a2,…an tính và hiện thị các phần tử chia hết cho 3”

1. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           s:=0;
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] mod 3 = 0 then s:=s+A[i];
           End;
           Writeln(‘S = ‘,s);
           For i:=1 to n do
                   If A[i] mod 3 = 0 then Write(A[i],’ ‘);
           Readln
   End.

   Trả lời