Cần mọi người làm giúp gấp

cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
a, Tính tích các phần tử là số chẵn
b, tích các phần tử số lẻ

Sặc, trời ơi
dùng 2 vòng while là xong

tichle:=1;
i:=1;
while (i<100)
{
tichle:=tichle*a[i];
i:=i+2;
}
tichchan:=1;
i:=2;
while (i<=100)
{
tichchan:=tichchan*a[i];
i:=i+2;
}

Trích:

---

Nguyên văn bởi viethoan

cho mảng A gồm n phần tử số thực ( n<=100). hay lap trinh
a, Tính tích các phần tử là số chẵn
b, tích các phần tử số lẻ

---

VAR N,i,tichle,tichchan:integer;
BEGIN
Writeln('Nhap so phan tu day so N= ');
Readln(N);

tichle:=1;
tichchan:=1;

For i:=1 to N do
Begin
write('a[',i,']=');
Readln(a[i]);
If a[i] mod 2 =0 then tichchan:=tichchan*a[i]
else tichle:=tichle*a[i];
End;

writeln('tich cac so chan=',tichchan);
writeln('tich cac so le=',tichle);
readln;
end.

ặc dốt nhất pascal
chỉ biết sql
để mình làm thử xem nào

Trích:

---

Nguyên văn bởi duyhung1no2

VAR N,i,tichle,tichchan:integer;
BEGIN
Writeln('Nhap so phan tu day so N= ');
Readln(N);

tichle:=1;
tichchan:=1;

For i:=1 to N do
Begin
write('a[',i,']=');
Readln(a[i]);
If a[i] mod 2 =0 then tichchan:=tichchan*a[i]
else tichle:=tichle*a[i];
End;

writeln('tich cac so chan=',tichchan);
writeln('tich cac so le=',tichle);
readln;
end.

---

bài bác này phù hợp với chương trình lớp 11 này. tuy nhiên phần khai báo sai tí. bài cho n phần tử số thực nên tích của nó cũng là số thực, với lại i, n để integer thì phí bộ nhớ...

Trích:

---

Var i,n : byte;
tichchan, tichle: real;

---

còn nữa, vì kiểu thực nên khi in ra màn hình nếu không viết cái gì sau cái chỗ tichchan, tichle thì sẽ không nhìn rõ kết quả, nên viết

Trích:

---

writeln('tich cac so chan=',tichchan:4);
writeln('tich cac so le=',tichle:4);

---

à, thêm cái dòng: có lạc rang sẽ có rượu ( clrscr) sau Begin để làm sạch màn hình nữa :D

Có thể do cô tin của mình yêu cầu quá nhiều nên mấy cái mình nói ko cần thiết...:)