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.
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.