Câu 1: Em hãy viết chương trình nhập vào một 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. Câu 2: Em hãy viết chương trình nhập vào một mảng 1 chiều gồm 10 phần tử và tính tổng các phần tử lẻ trong mảng, xuất tổng ra màn hình. Giúp mik bài này với.
2 câu trả lời
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.
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.
