Tin học Tính tích các số lẻ trong mảng

[d_p_thao22]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Em hãy viết chương trình nhập vào mảng 1 chiều gồm 10 phần tử và tính tích các phần tử lẻ trong mảng, xuất tích ra ngoài

 

[Trâm Nguyễn Thị Ngọc]

Var
 a:array[1..10] of integer;
 i,s,n:integer;
Begin
 write('nhap so pt cua mang:');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];
write(s);
readln
End.

 

[Deathheart]

Var
 a:array[1..10] of integer;
 i,s,n:integer;
Begin
 write('nhap so pt cua mang:');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];
write(s);
readln
End.

mảng có 10 pt kìa =))

 

[Trâm Nguyễn Thị Ngọc]

mảng có 10 pt kìa =))

À, em cứ tưởng là mảng tối đa 10 pt

Var
 a:array[1..10] of integer;
 i,s:integer;
Begin
 For i:=1 to 10 do
   Begin
    write('a[',i,']=');
    readln(a[i]);
   end;
 s:=1;
 For i:=1 to 10 do
  if a[i] mod 2<>0 then s:=s*a[i];
write(s);
readln
End.