Question

VCT nhập vào một mảng A gồm m số nguyên (m được nhập từ bàn phím).xuất ra các phần tử của mảng A theo dòng giữa các phần tử cách nhau 1 khoảng trắng.tính tổng của các phần tử chia hết cho 2 nhưng không chia hết cho 3 có trong mảng.

Answer 1

uses crt;

var m,i,t:longint;

a:array[1..1000] of longint;

begin

wirte('nhap so phan tu cua mang:');readln(m);

for i:=1 to m do

begin

write('nhap a[',i,':');readln(a[i]);

end;

t:=0;

for i:=1 to m do

begin

write(a[i],' ');

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

end;

writeln;

write('tong=',t);

readln

end.

( bạn chỉ cần copy code này và vào pascal chọn edit rồi nhấn " paste from windows" là dc rồi)

Answer 2

Lời giải:

program hotrotinhoc ;

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

i,m,tong : integer ;

begin

write('m='); readln(m);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to m do

begin

write('a[',i,']='); readln(a[i]);

end;

tong:=0;

for i:= 1 to m do

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

write(tong);

readln

end.