За работу поставили пятерку)))) спасибо большое!!!
Информация о работе
Подробнее о работе
Задана квадратная матрица Получить транспонированную матрицу т Е матрицу где столбцы и строки меняют
- 1 страниц
- 2018 год
- 9 просмотров
- 0 покупок
Гарантия сервиса Автор24
Уникальность не ниже 50%
Фрагменты работ
Program Prog1;//Задана квадратная матрица. Получить транспонированную матрицу, т. е. матрицу, где столбцы и строки меняются местами.
var
a: array [,] of Integer;
Begin
var n:=readInteger('Введите порядок квадратной матрицы n = ');
SetLength(a,n,n); // устанавл
Отсутствует
Задана квадратная матрица. Получить транспонированную матрицу, т. Е. матрицу, где столбцы и строки меняются местами.
Program Prog1;//Задана квадратная матрица. Получить транспонированную матрицу, т. е. матрицу, где столбцы и строки меняются местами.
var
a: array [,] of Integer;
Begin
var n:=readInteger('Введите порядок квадратной матрицы n = ');
SetLength(a,n,n); // устанавливаем размер матрицы а
For var i:=0 to n-1 do //заполняем массив
Begin
For var j:=0 to n-1 do //заполняем массив
Begin
a[i,j]:=random(1,20);
Write(a[i,j]:4,' ');
End;
Writeln;
End;
For var i:=1 to n-1 do
For var j:=0 to i-1 do
Begin
var b:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=b;
End;
Writeln;
Writeln('Результат');
For var i:=0 to n-1 do
Begin
For var j:=0 to n-1 do Write(a[i,j]:4,' ');
Writeln;
End;
end.
Отсутствует
Форма заказа новой работы
Не подошла эта работа?
Закажи новую работу, сделанную по твоим требованиям
