Param16. Описать процедуру ArrayToMatrRow(A, K, M, N, B)

[Евгений1240]

помогите решить
Param16. Описать процедуру ArrayToMatrRow(A, K, M, N, B), формирующую по вещественному массиву A размера K матрицу B размера M × N (матрица заполняется элементами массива A по строкам). «Лишние» элементы массива игнорируются; если элементов массива недостаточно, то оставшиеся элементы матрицы полагаются равными 0. Двумерный массив B является выходным параметром. С помощью этой процедуры на основе данного массива A размера K и целых чисел M и N сформировать матрицу B размера M × N.

[Serge_Bliznykov]

в разных Паскаль эта функция может выглядеть по разному...

вот, например, решение для TurboPascal:

const
  MaxASize = 100;
  MaxBSize = 100;
type
 TA_arr = array[1..MaxASize] of real;
 TB_arr = array[1..MaxBSize, 1..MaxBSize] of real;

procedure ArrayToMatrRow(A : TA_arr; K, M, N: integer; var B : TB_arr);
var i, j, g : integer;
begin
   g := 1;
   for  i:=1 to M do
     for j:=1 to N do
       if g<=K then begin
            B[i,j] := A[g];
            inc(g)
       end
       else B[i,j] := 0.0;
end;

const
 KK = 10;
 MM = 3;
 NN = 4;
var
  A : TA_arr;
  B : TB_arr;
  i,j : integer;
begin
  {заполнение исходного массива A}
  for i:=1 to KK do A[i] := i*10;

  ArrayToMatrRow(A, KK, MM, NN, B);

  {вывод массива B}
  for i:=1 to MM do begin
    for j:=1 to NN do
      Write(B[i,j]:3:0, ' ');
    WriteLn
  end;

  Readln;
    
end.

[Евгений1240]

Спасибо огромное