Tin học tính tích các phần tử n của mảng

[Trần Thu Hằng]

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

Giúp mình bài này với ạ , mình cảm ơn :>

Nhập mảng không quá 50 phần tử và tính tích của chúng

 

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

Var
 A:array[1..50] of integer;
 T,n,i:interger;
Begin
 Write('nhap so pt mang:');readln(n);
 For i:=1 to n do readln(a[i]);
For i:=1 to n do
   T:=t*a[i];
 Write('tich cua cac pt trong mang la:',t);
Readln
End.

 

[H Đ D]

var a:array[1..50] of integer;
i,n,t:integer;
begin
t := 1;
write('nhap so pt :'); readln(n);
writeln('nhap cac phan tu cua day');
for i:=1 to n do
begin
readln(a);
t := t*a;
end;
writeln(t);
readln;
end.