viết chương trình nhập vào 1 mảng số nguyên in ra tích các số chẵn khác 0 và tích các số lẻ trong mảng
2 câu trả lời
program sksk;
uses crt;
var a : array[1..100] of integer;
i, n, s1, s2 : integer;
begin
clrscr;
s1 := 1;
s2 := 1;
write('nhap so phan tu co trong mang :');readln(n);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
if (a[i] <> 0) and (a[i] mod 2 = 0) then s1 := s1 * a[i];
if (a[i] <> 0) and (a[i] mod 2 <> 0) then s2 := s2 * a[i];
end;
writeln('tich cac so chan co trong mang la :', s1);
writeln('tich cac so le co trong mang la :', s2);
readln
end.
program bai_giai;
uses crt;
var n,i,sc,sl:longint;a:array[1..1000]of longint;
begin
clrscr;
write('n=');readln(n);
sc:=1;
sl:=1;
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
if(a[i]<>0)then
begin
if(a[i] mod 2=0)then sc:=sc*a[i]else sl:=sl*a[i];
end;
end;
writeln('tich cac chu so chan, khac 0 trong day so tren la:',sc);
writeln('tich cac chu so le, khac 0 trong day so tren la:',sl);
readln
end.
