Hãy viết chương trình nhập số nguyên L, sau đó nhập thêm L số nguyên từ bàn phím( sử dụng mảng). Tính tích các số nguyên đã nhập

Question

tonhu · Answer

var n,i,so:longint;

s:real;

begin

writeln(‘nhap so phan tu cua mang’);

readln(n);

writeln(‘nhap lan luot cac phan tu cua mang’);s:=1;

for i:=1 to n do begin

readln(so);

s:=s*so;

end;

writeln(‘tich cua cac phan tu trong mang la=’,s:0:0);

readln;

end.

dongocdiem · Answer

program tinh_tich;

uses crt;

var A:array[1..1000] of integer;

L,i:integer;

tich:int64;

begin

clrscr;

write(‘Nhap L: ‘); readln(L);

tich:=1;

for i:=1 to L do

begin

write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);

tich:=tich*A[i];

end;

write(‘Tich cac so la: ‘,tich);

readln;

end.

0 bình luận về “Hãy viết chương trình nhập số nguyên L, sau đó nhập thêm L số nguyên từ bàn phím( sử dụng mảng). Tính tích các số nguyên đã nhập”