Câu 1:

Program tinh_tich;

Uses crt;

Var A: array [1..10] of integer;

       i: byte;

       Tich: longint;

Begin

For i:=1 to 10 do

Begin

Write ('nhap phan tu thu',i,'=');

Readln (A[i]);

end;

Tich:=1;

For i:=1 to 10 do 

If A[i] mod 2= 0 then 

Tich:= Tich*A[i];

Write ('Tich cac phan tu chan trong mang la :', Tich);

Readln

End.

Câu 2:

Program tinh_tong;

Uses crt;

Var A: array [1..10] of integer;

       S,i: integer;

Begin

For i:=1 to 10 do

Begin

Write ('nhap phan tu thu',i,'=');

Readln (A[i]);

end;

S:=0;

For i:=1 to 10 do

If A[i] mod 2= 1 then 

S:= S+ A[i];

Writeln ('Tong cac phan tu le trong mang la:',S);

Readln

End.

Bài này có thể làm While hoặc For đều được.Bạn tham khảo cả hai nhé

Bài `1`

*Cách 1: Program Hotboy;

Uses crt;

Var a:array[1..10] of integer;

S: real;

I: byte

Begin

S:=1;

I:=1;

While i<=10 do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

While i<=10 do

Begin

If (i mod 2=0) then

S:=S*i;

End;

Write('tich la',S);

Readln

End.

*cách 2

Program Hotboy;

Uses crt;

Var a:array[1..10] of integer;

S: real;

I: byte

Begin

S:=1;

For i:=1 to 10 do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

For i:=1 to 10 do

If (i mod 2=0) do

S:=S*i;

Write('tich la',S);

Readln

End.

Bài `2`

*Cách 1: Program Hotboy;

Uses crt;

Var a:array[1..10] of integer;

S: real;

I: byte

Begin

S:=0;

I:=1;

While i<=10 do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

While i<=10 do

Begin

If (i mod 2<>0) then

S:=S+i;

End;

Write('tong la',S);

Readln

End.

*cách 2

Program Hotboy;

Uses crt;

Var a:array[1..10] of integer;

S: real;

I: byte

Begin

S:=0;

For i:=1 to 10 do

Begin

Write('A[',i,']');

Readln(A[i]);

End;

For i:=1 to 10 do

If (i mod 2<>0 ) do

S:=S+i;

Write('tong la',S);

Readln

End.