B1

uses crt;

var n,i,t:integer;

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

begin

clrscr;

t:=1;

write('nhap chieu dai mang'); readln(n);

for i:=1 to n do begin

write('nhap so'); readln(a[i]); end;

for i:=1 to n do

t:=t*a[i];

write('tich cac so trong mang ',t);

readln

end.

B2

uses crt;

var n,i:integer; min:real;

a:array[1..100] of real;

begin

clrscr;

write('nhap n '); readln(n);

for i:=1 to n do begin

write('nhap so '); readln(a[i]); end;

min:=a[i];

for i:=1 to n do

if min>a[i] then min:=a[i];

write('so be nhat ',min:0:2);

readln

end.

$\text{1)}$

uses crt;
var n,i:longint;a:array[1..10000]of longint; s:qword;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=0;
  for i:=1 to n do 
    begin
     write('nhap a[',i,']=');readln(a[i]);
     s:=s*a[i];
    end;
  write('s=',s);
 readln
end.

$\text{2)}$

uses crt;
var n,i:longint;a:array[1..10000]of real; min:real;
begin
 clrscr;
  write('nhap n:');readln(n);
  write('nhap a[1]:');
  min:=a[1];
  for i:=2 to 100 do 
    begin
     write('nhap a[',i,']=');readln(a[i]);
     if(a[i]<min)then min:=a[i];
    end;
  write('min=',min);
 readln
end.