Câu 1: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình các phần tử có giá trị chẵn (N nhập từ bàn phím)?
Câu 2: Viết CT nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tích của dãy số vừa nhập (N nhập từ bàn phím)?
Câu 3: Viết Ct nhập 1 dãy số nguyên gồm N phần tử in ra mà hình tổng các phần tử lẻ trong mảng?
**Giúp mình với, sáng mai mình phải nộp rồi ạ**
Câu 1:
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Cac phan tu chan la : ');
for i:=1 to n do if a[i] mod 2=0 then write(i,' ');
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: int64;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
t:=1;
for i:=1 to n do t:=t*a[i];
write('Tich cua day so vua nhap la : ',t);
readln
end.
1:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
if a[i] mod 2=0 then write(a[i]:4);
readln;
end.
2:
uses crt;
var a:array[1..100]of integer;
i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
s:=1;
for i:=1 to n do s:=s*a[i];
writeln(s:0:0);
readln;
end.
3:
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Câu 3:
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N : '); readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,' : '); readln(a[i]);
end;
write('Tong ac phan tu le trong mang la : ');
t:=0;
for i:=1 to n do if a[i] mod 2<>0 then t:=t+a[i];
write(t);
readln
end.
