Блок-схема

program laba4;
 
{$APPTYPE CONSOLE}
{$DEFINE DEBUG1}
 
uses
  SysUtils,
  Windows;
 
Var
  SumMin: Double = 0;
  SumMax: Double = 0;
  MinMax: Double = 0;
  Min1: Double;
  Max1: Double;
  k, n, m, I, g, j, I1: Integer;
  Akn, SumAkn, MaxAkn: Array of Double;
  A2kn: Array of Array of Double;
 
begin
 
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
 
  write('Введите k= ');
  readln(k);
  writeln('Введите n= ');
  readln(n);
  m := k * n;
  SetLength(Akn, m); // создание массива
  try
{$IFDEF DEBUG1}
    Randomize; // инициализация генератора случайных чисел
    for I := Low(Akn) to High(Akn) do
      Akn[I] := Random; // генерация случайных чисел
 
{$ELSE}
    for I := Low(Akn) to High(Akn) do
      readln(Akn[I]);
{$ENDIF}
    // разбиение последовательности действительных чисел на n строк и k столлбцов
    g := 0;
    SetLength(A2kn, n); // создание массива(n строк)
    for I := Low(A2kn) to High(A2kn) do
    begin
      SetLength(A2kn[I], k); // создание массива(k столбцов для i строки)
      for j := Low(A2kn[I]) to High(A2kn[I]) do
      begin
        A2kn[I, j] := Akn[g];
        inc(g);
      end;
 
    end;
    try
      SetLength(SumAkn, n); // создание массива
      SetLength(MaxAkn, n); // создание массива
      for I := Low(MaxAkn) to High(MaxAkn) do
      begin
        SumAkn[I] := 0.0;
        for I1 := Low(A2kn[I]) to High(A2kn[I]) do
          SumAkn[I] := SumAkn[I] + A2kn[I][I1];
        // вычисление последовательности по пункту а
        Max1 := A2kn[I][ Low(A2kn[I])];
        for I1 := Low(A2kn[I]) + 1 to High(A2kn[I]) do
          if Max1 < A2kn[I][I1] then
            Max1 := A2kn[I][I1];
 
        MaxAkn[I] := Max1;
 
        // вычисление последовательности по пункту б
        Min1 := A2kn[I][ Low(A2kn[I])];
        for I1 := Low(A2kn[I]) + 1 to High(A2kn[I]) do
          if Min1 > A2kn[I][I1] then
            Min1 := A2kn[I][I1];
 
        SumMin := SumMin + Min1;
 
        // вычисление суммы минимальных элементов
      end;
      Max1 := SumAkn[ Low(SumAkn)];
      for I1 := Low(SumAkn) + 1 to High(SumAkn) do
        if Max1 < SumAkn[I1] then
          Max1 := SumAkn[I1];
 
      SumMax := Max1; // вычисление суммы максимальных элементов
 
      Min1 := MaxAkn[ Low(MaxAkn)];
      for I1 := Low(MaxAkn) + 1 to High(MaxAkn) do
        if Min1 > MaxAkn[I1] then
          Min1 := MaxAkn[I1];
 
      MinMax := Min1;
      // вычисление минимального элемента из максимальной последовательности
 
      // вывод на экран
      for I := Low(SumAkn) to High(SumAkn) do
        if I = 0 then
          write(SumAkn[I]:1:3)
        else
          write('  ', SumAkn[I]:1:3);
      writeln;
 
      for I := Low(MaxAkn) to High(MaxAkn) do
        if I = 0 then
          write(MaxAkn[I]:1:3)
        else
          write('  ', MaxAkn[I]:1:3);
      writeln;
 
      writeln(SumMin:1:3);
      writeln(SumMax:1:3);
      writeln(MinMax:1:3);
      readln; // остановка выполнения программы
    finally
      for I := Low(A2kn) to High(A2kn) do
      begin
        SetLength(A2kn[I], 0);
      end;
      SetLength(A2kn, 0);
      SetLength(MaxAkn, 0);
      SetLength(SumAkn, 0);
    end;
  finally
    SetLength(Akn, 0);
  end;
 
End.