При оформлени реферата существуют требования к отдельным его частям вам нужно сотнести части рефератаи требования по оформлению к ним

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15

const

  n = 3;

  m = 4;

var

  matrix: array[1..n, 1..m] of integer;

  max, max_i, max_j, i, j: integer;

  sum: integer;

 

begin

  writeln('введите массив ',n, '*', m, ' элементов: ');

  for i : = 1 to n do

    for j : = 1 to m do

      read(matrix[i,j]);

     

  max : = matrix[1,1];

 

  for i : = 1 to n do

    for j : = 1 to m do

      if (max < matrix[i,j]) then

      begin

        max : = matrix[i,j];

        max_i : = i;

        max_j : = j;

      end;

 

  sum : = 0;

 

  for i : = 1 to n do

    sum : = sum + matrix[i, max_j];

   

  for j : = 1 to m do

    sum : = sum + matrix[max_i, j];

   

  matrix[max_i, max_j] : = sum;

 

  writeln('получившийся массив: ');

  for i : = 1 to n do

  begin

    for j : = 1 to m do

      write(matrix[i,j], ' ');

   

    writeln();

  end;

end.

пример:

введите массив 3*4 элементов:

1 2 3 4

55 6 7 8

9 10 11 12

получившийся массив:

1 2 3 4

141 6 7 8

9 10 11 12