Viết chương trình cho phép nhập vào mảng A kiểu số nguyên N phần tử ( N không quá 100). Sau đó tính tích tất cả các phần tử có trong mảng A. GIÚP MIK LẦN NŨA VS!!!
Viết chương trình cho phép nhập vào mảng A kiểu số nguyên N phần tử ( N không quá 100). Sau đó tính tích tất cả các phần tử có trong mảng A. GIÚP MIK LẦN NŨA VS!!!
var a: array[1..100] of integer;
n, i: byte;
t: longint;
Begin
Write(‘n = ‘); readln(n);
T:=1;
For i:=1 to n do
Begin
Write(‘a[‘, i, ‘] = ‘); readln(a[i]);
T:=t*a[i];
End;
Write(‘tich = ‘, t);
Readln
End.
ヾ(¯∇￣๑)