• СРОЧНО!! ПАСКАЛЬ!!!!!!
    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]>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.
  • Добавить свой ответ

Войти через Google

или

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

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

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