Безотлагательно!! ПАСКАЛЬ!!!!!!1)Дан двумерный массив A[n,n]. Сформировать одномерный массив В,

СРОЧНО!! ПАСКАЛЬ!!!!!!
1)Дан двумерный массив A[n,n]. Сформировать одномерный массив В, состоящий только наибольших элементов каждого столбца.
2)Отсортировать каждую строку двумерного массива по возрастанию.

Задать свой вопрос
1 ответ
Const n = 10;
Var
  A       : array[1..n,1..n] of Integer;
  B       : array[1..n] of Integer;
  i,j,max : Integer;
Begin
  Randomize;
  Writeln('Массив A: ');
  For i:=1 to n do
  Begin
    max:=1;
    For j:=1 to n do
    Begin
      a[j,i]:=Random(90)+10;
      If a[j,i]gt;a[max,i] then max:=j;
    end;
    B[i]:=a[max,i];
  end;
  For i:=1 to n do
  Begin
    For j:=1 to n do Write(a[i,j]:3);
    Writeln;
  end;
  Writeln(13,'Массив B: ');
  For i:=1 to n do Write(b[i]:3);
  Writeln;
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт