Заполните таблицу по образцу, приведенному ниже, и выполните соответствующие вычисления. Произведите вычисления для столбцов "Выполнение" и "Отклонение от плана". Используйте статистические функции МАКС и СРЗНАЧ для вычисления среднего и максимального значения по полю "План" и "Фактически".

var

  k, i, n: integer;  //k - данное число, n - количество делителей числа k

  s: real;  //s - сумма делителей числа k

 

begin

  n:= 0;  //Обнуляем счетчики

  s:= 0;

  writeln('Введите целое число');

  readln(k);  //Вводим число k

  for i:= 1 to k do  {Проверяем какие числа от 1 до k являются делителями числа k}

    if k mod i = 0 then   {Если k делится без остатка на i, то прибавляем число i к сумме и прибавляем к счетчику 1}

    begin

      n:= n + 1;

      s:= s + i;

    end;

  writeln('Среднее арифметическое делителей числа ', k, ' равно: ', s / n : 0 : 5);  {Выводим среднее арифметическое делителей с округлением до 5 знаков после запятой}

end.

// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
procedure MatPrint(a:array[,] of integer);
begin
  for var i:=0 to Length(a,0)-1 do begin
    for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);
    Writeln
    end
end;

procedure MatReplaceOdd(a:array[,] of integer; value:integer);
begin
  for var i:=0 to Length(a,0)-1 do
    for var j:=0 to Length(a,1)-1 do
      if a[i,j].IsOdd then a[i,j]:=value
end;

begin
  var n,m:integer;
  Write('Задайте число строк и столбцов матрицы: ');
  Read(n,m);
  var a:=MatrixRandom(n,m,-99,99);
  Writeln('Исходный массив');
  MatPrint(a);
  MatReplaceOdd(a,26);
  Writeln('Результирующий массив');
  MatPrint(a)
end.

Тестовое решение
Задайте число строк и столбцов матрицы: 5 7
Исходный массив
 -14  86  52 -85 -52 -79  78
  20 -80  68  89 -45 -45 -36
 -41 -60  96  43  16  56 -58
 -39  81   1  26 -15 -98  89
  57 -51  79 -28 -24 -63 -74
Результирующий массив
 -14  86  52  26 -52  26  78
  20 -80  68  26  26  26 -36
  26 -60  96  26  16  56 -58
  26  26  26  26  26 -98  26
  26  26  26 -28 -24  26 -74