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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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.

   Bình luận