Cho dãy số nguyên gồm 5 phần tử ( 2, 5,3,9,10).Tính tích của các phần trong dãy và xuất ra màn hình.Viet chuong trinh các bạn giải nhanh hộ mình.

0 bình luận về “Cho dãy số nguyên gồm 5 phần tử ( 2, 5,3,9,10).Tính tích của các phần trong dãy và xuất ra màn hình.Viet chuong trinh các bạn giải nhanh hộ mình.”

1. Em làm tổng quát luôn nhé :3

   —

   Program BTT;
   Uses crt;
   Var A:array[1..1000] of longint;
       i,n,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap so luong phan tu: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘); Readln(A[i]);
           End;

           s:=1;
           For i:=1 to n do
                   s:=s*A[i];
           Write(‘Tich la: ‘,s);
           Readln
   End.

   Bình luận