Question

дан двумерный массив. сформировать одномерный массив из минимальных элементов каждой строки.pascal

Answer 1

var a: array[1..10,1..10] of Integer;
       b: array[1..10] of Integer;
       i, j, min: Integer;
Begin
  for i := 1 to 10 do
  begin
    min := 10;
    for j := 1 to 10 do
    begin
      a[i,j] := random(10);
      write(a[i,j],' ');
      if a[i,j] < min then min := a[i,j];
    end;
    b[i] := min;
    writeln;
  end;
  writeln;
  for i := 1 to 10 do
    write(b[i],' ');
  End.