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

поменять местами k-й и l-й столбцы данного массива А(m,n)

нужна программа на паскале. помогите пожалуйста)

  1. Ответ
    Ответ дан Franqik
    constnMax = 10;
    var  a:array [1..nMax] of integer; 
    buf :integer;
    begin 
    readln(k, l); 
    for i := 1 to m do   begin   
    buf := a[i, k];   
    a[i, k] := a[i, l];   
    a[i, l] := buf; 
     end;  
    end.

    1. Ответ
      Ответ дан Franqik
      И два
      const
      nMax = 10;
      var
      a:array [1..nMax,1..nMax] of integer;
      i :integer;
      begin
      readln(k, l);
      for i := 1 to nMax do
      begin
      a[i, k] := a[i, k] + a[i, l];
      a[i, l] := a[i, k] - a[i, l];
      a[i, k] := a[i, k] - a[i, l];
      end;
      end.
    2. Ответ
      Ответ дан ellzv
      спасибо)
Самые новые вопросы