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

Question

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

haiyen · Answer

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.

aivilan · Answer

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.