Tin học Cho mảng nguyên một chiều gồm n (n<=200) phần tử nhập từ bàn phím. Viết chương trình tính tong các phần tử của mảng có giá trị chẵn và chia hết cho 3 21/07/2021 By Autumn Cho mảng nguyên một chiều gồm n (n<=200) phần tử nhập từ bàn phím. Viết chương trình tính tong các phần tử của mảng có giá trị chẵn và chia hết cho 3
uses crt;var a:array[1..1000000] of longint; n,i,s:longint;begin clrscr; write(‘Nhap so luong phan tu: ‘); readln(n); for i:=1 to n do begin write(‘Nhap gia tri phan tu thu ‘,i,’: ‘); readln(a[i]); if (a[i] mod 2=0) and (a[i] mod 3=0) then inc(s,a[i]); end; writeln(‘Tong cac phan tu chan va chia het cho 3: ‘,s); readln;end. Trả lời