Линейные массивы.

var
a:array[1..6] of integer;
b:array[1..8] of integer;
pr,summ,summ2,i:integer;
sr1,sr2:real;
begin
{-----------------------------------------}
For i:=1 to 6 do
begin
a[i]:=random(10);
summ:=summ+a[i];
end;
sr1:=summ/6;
{-------------------------------------------}
For i:=1 to 6 do
begin
if a[i]<sr1 then pr:=pr*a[i];
end;
summ:=0;
{-------------------------------------------}
For i:=1 to 8 do
begin
b[i]:=random(10);
summ:=summ+b[i];
end;
sr2:=summ/8;
{---------------------------------------}
for i:=1 to 8 do
begin
if b[i]>sr2 then
summ2:=summ2+b[i];
end;
end.

uses crt;
type mas=array[1..8] of integer;
function Sred(m:mas;x:byte):real;
var i:byte;
    sr:real;
begin
sr:=0;
for i:=1 to x do
sr:=sr+m[i];
Sred:=sr/x;
end;
function Summ(m:mas;x:byte;sr:real):integer;
var i:byte;
    s:integer;
begin
s:=0;
for i:=1 to x do
if m[i]>sr then s:=s+m[i];
Summ:=s;
end;
function Proiz(m:mas;x:byte;sr:real):integer;
var i:byte;
    p:integer;
begin
p:=1;
for i:=1 to x do
if m[i]<sr then p:=p*m[i];
Proiz:=p;
end;
 
var
x,y:mas;
i:byte;
begin
clrscr;
randomize;
writeln('Массив X:');
For i:=1 to 6 do
  begin
   x[i]:=random(10)+1;
   write(x[i],' ');
  end;
writeln;
writeln('Среднее=',Sred(x,6):0:2);
writeln('Произведение меньших среднего=',Proiz(x,6,Sred(x,6)));
writeln('Сумма     больших    среднего=',Summ(x,6,Sred(x,6)));
writeln;
writeln('Массив Y:');
For i:=1 to 8 do
  begin
   y[i]:=random(10)+1;
   write(y[i],' ');
  end;
writeln;
writeln('Среднее=',Sred(y,8):0:2);
writeln('Произведение меньших среднего=',Proiz(y,8,Sred(y,8)));
writeln('Сумма     больших    среднего=',Summ(y,8,Sred(y,8)));
readln
end.