Program BTT; Uses crt; Var A: array[1..5] of longint; i,t: longint; Begin Clrscr; t:=0; For i:=1 to 5 do Begin Write('A[',i,'] = '); Readln(A[i]); If A[i] mod 3 <> 0 then t:=t+A[i]; End;
Write('Cac so chia het cho 3: '); For i:=1 to 5 do If A[i] mod 3 = 0 then Write(A[i],' '); Writeln; Write('Tong cac so khong chia het cho 3: ',t); Readln End.