Viết chương trình tạo mảng gồm 10 phần tử và tính tích của các phần tử đó. Giúp mình vs mng
2 câu trả lời
var s,i:longint;
a: array [1..10] of longint;
begin
s:=1;
for i:=1 to 10 do
begin
write('Nhap phan tu thu ',i); read(a[i]);
s:=s*a[i];
end;
writeln;
write('Tich la: ',s);
readln
end.
program oken;
uses crt;
var a: array [1..10] of integer;
i,tich:longint;
begin
clrscr;
writeln('nhap 10 so mang');
for i:=1 to 10 do
begin
write('a[',i']: '); readln(a[i]);
tich:=tich*a[i];
end;
writeln('Tich cua 10 phan tu mang: ',tich);
readln;
end.