viết chương trình nhập vào số nguyên dương n<= 100 và dãy a gồm n số nguyên a1 a2 ...An .tính và in lên màn hình tích dãy số đó

0 bình luận về “viết chương trình nhập vào số nguyên dương n<= 100 và dãy a gồm n số nguyên a1 a2 ...An .tính và in lên màn hình tích dãy số đó”

1. program mang;

   uses crt;

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

         n,i,S: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            S:=1;

            for i:=1 to n do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

                     S:=S*A[i];

            end;

            write(‘Tich day so = ‘,S);

            readln

   End.

   Bình luận

2. program bt;

   uses crt;

   var a: array[1..100] of integer;

         i, n, tich: integer;

   begin

     clrscr;

     write(‘Nhap n la:’); readln(n);

     for i:=1 to n do begin

      write(‘Nhap a[‘,i,’]=’);

      readln(a[i]);

      end;

     tich := 1;

     for i:= 1 to n do tich:= tich * a[i];

     writeln(‘Tich cac so co trong day la=’, tich:3);

     readln

   end.

   Xin câu trả lời hay nhất ạ :3

   Bình luận