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

[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ẻ

[hoang_fc]

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;
}

[duyhung1no2]

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.

[buihals]

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

[nhock_quậy]

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ớ...

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

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

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...