Question

Tin học 11, giải hộ mình với ạ:(

Viết chương trình nhập vào 1 mảng 1 chiều gồm 10 phần tử và tính tích các phần tử chẵn trong mảng, xuất tích ra màn hình.

Answer 1

Lời giải :

program hotrotinhoc ;

Type Mang1chieu : array[1..10] of integer ;

var a : Mang1chieu ;

i,T : integer ;

begin

writeln('Nhap cac gia tri cho mang');

for i:= 1 to 10 do

begin

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

end;

T:=1;

for i:= 1 to 10 do

if a[i] mod 2 = 0 then T:=T*a[i] ;

write('Ket qua la:',T);

readln

end.

Answer 2

program hotrotinhoc ;

Type Mang1chieu : array[1..10] of integer ;

var a : Mang1chieu ;

i,T : integer ;

begin

writeln('Nhap cac gia tri cho mang');

for i:= 1 to 10 do

begin

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

end;

T:=1;

for i:= 1 to 10 do

if a[i] mod 2 = 0 then T:=T*a[i] ;

write('Ket qua la:',T);

readln

end.