1) Дана матрица а(4х4).

Получить новую матрицу на месте старой,

переписав её строки в обратном порядке.

program num1;

const n=4;

type row = array[1..n] of real;

matrix = array[1..n] of row;

Var a: matrix;

temp: row;

I, j: byte;

begin

writeln( 'Введите матрицу' );

{Ââîä}

for i:=1 to n do

for j:=1 to n do

read( a[i][j] );

{Вывод}

writeln;

writeln( 'Исходная матрица:' );

for i:=1 to n do begin

for j:=1 to n do begin

write( a[i][j], ' ' );

end;

writeln;

end;

{Решение}

for i:=1 to n div 2 do begin

temp:=a[i];

a[i]:=a[n-i+1];

a[n-i+1]:=temp;

end;

{Вывод}

writeln;

writeln( 'Решение:' );

for i:=1 to n do begin

for j:=1 to n do begin

write( a[i][j], ' ' );

end;

writeln;

end;

readln;

readln;

end.

2) Дана матрица в(3х4).

Получить новую матрицу на месте старой,

переписав её столбцы в обратном порядке.

program num2;

const rows = 3;

cols = 4;

type row = array[1..rows] of real;

matrix = array[1..cols] of row;

Var a: matrix;

tmp: row;

I, j: integer;

begin

writeln( 'Введите матрицу' );

{Ââîä}

for i:=1 to rows do

for j:=1 to cols do

read( a[j][i] );

{Вывод}

writeln;

writeln( 'Исходная матрица:' );

for i:=1 to rows do begin

for j:=1 to cols do begin

write( a[j][i], ' ' );

end;

writeln;

end;

{Решение}

for i:=1 to cols div 2 do begin

tmp:=a[i];

a[i]:=a[cols-i+1];

a[cols-i+1]:=tmp;

end;

{Вывод}

writeln;

writeln( 'Решение:' );

for i:=1 to rows do begin

for j:=1 to cols do begin

write( a[j][i], ' ' );

end;

writeln;

end;

readln;

readln;

end.

3) Дана матрица а(4х4).

Получить новую матрицу на месте старой,

исключив из исходной (старой) элементы,

находящиеся на главной диагонали.

program num3;

const n=4;

type matrix = array[1..4,1..4] of real;

Var I, j, k: integer;

a: matrix;

begin

{Создание матрицы}

k:=1;

for i:=1 to n do

for j:=1 to n do begin

a[i][j]:=k;

inc(k);

end;

{Вывод}

writeln( 'Исходная матрица' );

for i:=1 to n do begin

for j:=1 to n do begin

write( a[i][j], ' ' );

end;

writeln;

end;

{Решение}

writeln;

writeln( 'Решение' );

for i:=1 to n do begin

for j:=1 to n do begin

if i <> j then

write( a[i][j], ' ' );

end;

writeln;

end;

end.

4) Дана матрица В(5х5).

Получить вектор С(20),

исключив из исходной элементы,

находящиеся на главной диагонали.

Элементы вектора составляются

из строк оставшейся матрицы.

program num4;

const n = 5;

v = 20;

var mas: array[1..n,1..n] of real;

vector: array[1..v] of real;

i, j, m: integer;

begin

{Ââîä}

m:=1;

for i:=1 to n do

for j:=1 to n do begin

mas[i][j]:=m;

inc(m);

end;

{Вывод}

writeln;

writeln( 'Исходная матрица' );

for i:=1 to n do begin

for j:=1 to n do begin

write( mas[i][j], ' ' );

end;

writeln;

end;

{Вывод, Решение}

m:=1;

writeln;

writeln( 'Результат:' );

for i:=1 to n do begin

for j:=1 to n do begin

if i <> j then begin

write( mas[i][j], ' ' );

vector[m]:=mas[i][j];

inc(m);

end;

end;

writeln;

end;

{Вывод вектора}

writeln;

write( 'Вектор C: ' );

for i:=1 to m-1 do

write( vector[i], ' ');

end.