1
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Uses crt;
Var i, n, s: longint;
a:array[1..50] of integer;
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 if a[i] mod 2 = 0 then s:=s*a[i];
Writeln('Tich la: ',s);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Program tinh_tich;
Uses crt;
Var A : array [1..50] of integer;
T,i,n: longint;
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
If A[i] mod 2=0 then
T:=T*A[i];
Writeln ('Tich cac phan tu chan cua mang la:', T);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin