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
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.
Lời giải 1 :
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.
Thảo luận
Lời giải 2 :
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ó thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 11
Lớp 11 - Năm thứ hai ở cấp trung học phổ thông, gần đến năm cuối cấp nên học tập là nhiệm vụ quan trọng nhất. Nghe nhiều đến định hướng sau này rồi học đại học. Ôi nhiều lúc thật là sợ, hoang mang nhưng các em hãy tự tin và tìm dần điều mà mình muốn là trong tương lai nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247