Viết ct nhập từ bàn phím 10 số. Tính & xuất tích của 10 số đó

Cách 1: (Dùng vòng lặp for)

program tich10so;

uses crt;

var n,i,a:integer;

      tich:longitn;

begin

      clrscr;

      writeln(‘Nhap so thu 1:’);

      readln(a);

      tich:=a;

      for i:=2 to 10 do

      begin

      writeln(‘Nhap so thu :’,i);

      readln(n);

      tich:=tich*n;

      end;

      writeln(‘Tich 10 so la:’,tich);

      readln;

end.

Cách 2: (Dùng 10 biến)

program Tich10so;

uses crt;

var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10:integer;

tich:longint;

begin

       clrscr;

       writeln(‘Nhap vao 10 so:’);

       readln(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10);

       tich:=a1*a2*a3*a4*a5*a6*a7*a8*a9*a10;

       writeln(‘Tich cua 10 so vua nhap la:’,tich);

       readln;

end.