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
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
By Iris
By Iris
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
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.
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.