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

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

  1. Ответ
    Ответ дан APALoff
    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.