Линейные массивы. - Pascal - Ответ 200444

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.