0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
6985
5170
program h247;
uses crt;
var i, n, tich: integer;
a:array[1..500]of integer;
begin
write('Nhap n '); readln(n);
tich:=1;
for i:=1 to n do
begin
write('Nhap a[',i,'] '); readln(a[i]);
if a[i] mod 2=0 then tich:=tich*i;
end;
write('Tich cac so chan la ',tich);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1769
1692
uses crt;
var i,n,tich:integer;
A:array[1..1000] of integer;
begin
clrscr;
write('Nhap n: '); readln(n);
tich:=1;
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');
readln(A[i]);
if A[i] mod 2=0 then tich:=tich*i;
end;
write('Tich cac so chan la ',tich);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1769
1692
Cho mình 5 sao + cảm ơn + hay nhất nha :3
Bảng tin
1769
28435
1692
Bài này yêu cầu nhập mảng gồm N số nguyên hay là từ 1 đến N như bài của em nhỉ? :v
6985
103090
5170
Em nhầm ấy, em vừa sửa :'(
1769
28435
1692
Okeeee em :V