uses crt;
var a : array[1..200] of integer;
i, n, s, min : integer; tb : real;
begin
clrscr;
write('nhap so phan tu trong mang : '); readln(n);
s := 0; i := 1;
while i <= n do 
begin
write('nhap phan tu thu ', i ,':'); readln(a[i]);
if abs(a[i])> 200 then i := i - 1;
i:= i + 1;
end;
for i:= 1 to n do s := s + a[i];
tb := s / n;
min := a[1];
write('so lon hon trung binh :');
for i := 1 to n do
if a[i] > tb then write(a[i]:2);
for i := 2 to n do
if a[i] < min then min := a[i];
writeln;
for i := 1 to n do if a[i] = min then writeln('chi so gia tri nho nhat :', i);
readln
end.

Uses crt;
Var 
    A:array[1..1000] of integer;
    n,i,s: integer;
Begin
    clrscr;
    repeat
    write('Nhap so phan tu: '); readln(n);
    s:=0;
    for i:=1 to n do
        begin
        write('Nhap phan tu thu ',i,': '); read(A[i]);
        if abs(A[i])>200 then s:=1;
        end;
    if s=1 then
        begin
        clrscr;
        writeln('Vui long nhap phan tu có gia tri tuyet doi khong qua 200');
        end;
    until s=0;
    write('Cac so lon hon trung binh day la: ');
    s:=0;
    for i:=1 to n do s:=s+A[i];
    for i:=1 to n do if A[i]>(s div n) then write(A[i],' ');
    writeln();
    s:=A[1];
    for i:=2 to n do if A[i]<s then s:=A[i];
    writeln('Chi so gia tri nho nhat trong mang la: ',s);
    readln;
End.