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

Дан двумерный массив размером nxn , заполненный целыми числами с клавиатуры. Поменять местами последнюю строку с последним столбцом. ( Паскаль)

  1. Ответ
    Ответ дан Аккаунт удален
    PascalABC.NET 3.4, сборка 1670 от 23.05.2018
    Внимание! Если программа не работает, обновите версию!

    begin
      var n:=ReadInteger('Количество строк/столбцов в массиве:');
      Writeln('*** Исходный массив ***');
      var a:=MatrRandom(n,n,-99,99);
      a.Println; Writeln(4*a.ColCount*'-');
      for var i:=0 to n-2 do Swap(a[n-1,i],a[i,n-1]);
      Writeln('*** Полученный массив ***'); a.Println
    end.
Самые новые вопросы