Транспонирование матрицы на Pascal

      Комментарии к записи Транспонирование матрицы на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Транспонирование матрицы на Pascal

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 4 мес. назад.

  • Автор
    Сообщения
  • #3779

    С клавиатуры вводится матрица, размер и элементы которой определяются пользователем. Вам необходимо транспонировать ее.

    Решение:

    program arrays_17;
    uses crt;
    var i, j, r, c: integer;
    A: array[1..100, 1..100] of integer;
    begin
      write('Количество строк > '); read(r);
      write('Количество столбцов > '); read(c);
      for i:=1 to r do
      begin
        for j:=1 to c do
        begin
          write('Элемент №', i, j,' > '); read(A[i, j]);
        end;
      end;
      writeln('Исходная матрица:');
      for i:=1 to r do
      begin
        for j:=1 to c do
          write(A[i, j],' ');
        writeln;
      end;
      writeln('Транспонированная матрица:');
      for i:=1 to c do
      begin
        for j:=1 to r do
          write(A[j, i],' ');
        writeln;
      end;
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.