Answers ( )

  1. Acacia
    0
    2021-04-28T14:16:53+00:00
    Reply

    uses crt;
    var n,i,j,max,m,t:longint; a:array[1..1000,1..1000]of longint; d:text;
    begin
    clrscr;
       assign(d,’input.pas’);reset(d);
          readln(d,m,n);
          for i:=1 to m do
             begin
                for j:=1 to n do read(d,a[i,j]);
                readln(d);
             end;
          Max:=m;
          if max<n then max:=n;
       close(d);
       assign(d,’output.pas’);rewrite(d);
          for i:=1 to max do
             for j:=i to max do
             begin
                t:=a[i,j];
                a[i,j]:=a[j,i];
                a[j,i]:=t;
             end;
         for i:=1 to n do
             begin
                for j:=1 to m do write(d,a[i,j]:5);
                writeln(d);
             end;
       close(d);
    end.

  2. thachthao
    0
    2021-04-28T14:16:54+00:00
    Reply

    uses crt;

    var n,m,i,j:longint;

    a:array[1..100,1..100] of longint;

    begin

    write(‘nhap m,n: ‘);readln(m,n);

    for i:=1 to m do

    begin

    for j:=1 to n do

    read(a[i,j]);

    readln;

    end;

    for j:=1 to n do

    begin

    for i:=1 to m do 

    write(a[i,j]:3);

    writeln;

    end;

    writeln;

    end.

  3. mit
    0
    2021-04-28T14:17:11+00:00
    Reply

    Để tìm câu trả lời chính xác các em hãy tham khảo ma trận chuyển vị các nguồn hoc24.vn, lazi.vn, hoidap247.com để thầy cô và các chuyên gia hỗ trợ các em nhé!

Leave an answer

Browse

Giải phương trình 1 ẩn: x + 2 - 2(x + 1) = -x . Hỏi x = ? ( )