Задать вопрос
5 марта, 01:20

Вариант 1. Задана матрица вещественных чисел размерности m*n. Не используя вспомогательного массива, транспонировать данную матрицу. Размерность матрицы и значения ее элементов ввести с клавиатуры.

+1
Ответы (1)
  1. 5 марта, 01:44
    0
    Var

    a: array[,] of integer;

    i, j, t, n, m, k: integer;

    begin

    write ('Введите размерность матрицы m и n: ') ;

    readln (m, n) ;

    if n>m then k:=n else k:=m;

    setlength (a, k+1, k+1) ;

    writeln ('Вводите элементы матрицы по одному: ') ;

    for i : = 1 to m do

    for j:=1 to n do

    readln (a[i, j]) ;

    for i:=1 to k do

    for j:=i to k do

    begin

    t:=a[i, j];

    a[i, j]:=a[j, i];

    a[j, i]:=t;

    end;

    writeln;

    writeln ('Транспонированная матрица: ') ;

    for i : = 1 to n do

    begin

    for j:=1 to m do

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

    writeln;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Вариант 1. Задана матрица вещественных чисел размерности m*n. Не используя вспомогательного массива, транспонировать данную матрицу. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы