profile
Опубликовано 6 лет назад по предмету Информатика от yakunineu

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

  1. Ответ
    Ответ дан George2410
    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.
Самые новые вопросы