uses crt;
var i, Sum: longint;
    B: array[1..100] of longint;
begin
clrscr;
write('Nhap mang B gom 100 phan tu: ');
for i := 1 to 100 do read(B[i]);

write('Mang B: ');
Sum := 0;
for i := 1 to 100 do 
    begin
        write(B[i], ' ');
        if B[i] > 2 then Sum := Sum + B[i];
    end;
writeln;
writeln('Tong cac phan tu lon hon 2 la: ', Sum);
readln;
end.

uses crt;

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

i,n,dem,dem1,dem2,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('B[',i,']='); readln(b[i]);

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

begin

if b[i]<0 then inc(dem);

if b[i]>0 then inc(dem1);

end;

writeln('So phan tu am la: ',dem);

writeln('So phan tu duong la: ',dem1);

t:=0;

for i:=1 to n do 

 if b[i]<>0 then t:=t+b[i];

writeln('Trung binh cac phan tu khac 0 trong mang la: ',t/(dem+dem1):4:2);

min:=b[1];

for i:=1 to n do

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

dem2:=0;

for i:=1 to n do 

  if min=b[i] then

begin

 inc(dem2);

a[dem2]:=i;

end;

writeln('Gia tri nho nhat la: ',min);

writeln('Chi so la: ');

for i:=1 to dem2 do 

  write(a[i]:4);

readln;

end.

$#ok$