Pabc. Дана матрица A(5,6). Составить массив, содержащий минимальные элементы каждой строки.

const m=5; n=6;var a:array[1..m,1..n] of integer;b:array[1..m] of integer;i,j,min:integer;beginRandomize;writeln('Исходный массив:');for i:=1 to m do begin for j:=1 to n do  begin  a[i,j]:=random(50);  write(a[i,j]:4);  end;  writeln; end;for i:=1 to m do begin min:=a[i,1]; for j:=2 to n do  if a[i,j]<min then min:=a[i,j]; b[i]:=min; end;writeln('Полученный массив:');for i:=1 to m do write(b[i]:4);writeln; end.Пример:Исходный массив:  44  30  35  16  47   3  30  15  23  40  15  46  46  11   2   3  16  40  19  17   8  22  10  25  41  23   9  47   7  36Полученный массив:   3  15   2   8   7

var a: array [1..5, 1..6] of real;      b: array [1..5] of real;      i, j: integer;begin for i:=1 to 5 do          begin read(a[i,1]);                    b[i]:=a[i,1];                    for j:=2 to 6 do                    begin read(a[i,j]);   {ввод элементов массива в цикле с параметром}                              if (b[i]>a[i,j]) then b[i]:=a[i,j];                    end;                    writeln;    {для перехода на новую строку}          end;          for i:=1 to 5 do          write(b[i], ' ');readln;end.