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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years