program baitap;

uses crt;

var A:array[1..10000] of integer;

      n,i,m,d,min:integer;

      tich:longint;

begin

clrscr;

write('Nhap N: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA MANG');

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i,': ');

  readln(A[i]);

 end;

writeln('Day vua nhap la:');

for i:=1 to n do

 write(A[i],' ');

writeln;

tich:=1;

write('Cac phan tu chia het cho 5 trong mang la:');

for i:=1 to n do

 begin

  write(' ',A[i]);

  tich:=tich*A[i];

 end;

writeln;

writeln('Tich la: ',tich);

write('Nhap M: ');  readln(m);

d:=0;

write('Cac phan tu la uoc cua ',m,' la: ');

for i:=1 to n do

 if m mod A[i]=0 then 

  begin

   write(A[i],' ');

   d:=d+1;

  end;

writeln;

writeln('=> Co ',d,' phan tu la uoc');

min:=A[1];

for i:=2 to n do

 if A[i]<min then min:=A[i];

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

write('Vi tri xuat hien la: ');

for i:=1 to n do

 if A[i]=min then write(i,' ');

readln

end.

uses crt;

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

i, n, s : integer; tb : real;

begin

clrscr;

write('Nhap so luong phan tu : '); readln(n);

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(a[i]);

s := s + a[i];

end;

tb := s / n;

write('Phan tu gia tri lon hon trung binh : ');

for i := 1 to n do

if a[i] > tb then write(a[i],'   ');

readln

end.