16) Дана матрица в(NхМ).

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

переставив при этом второй и предпоследний столбец.

program num16;

const maxm = 100;

maxn = 100;

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

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

var tmp: row;

b: matrix;

I, j, n, m, k: integer;

begin

writeln( 'Введите размер матрицы N' );

readln(n);

writeln( 'Введите размер матрицы M' );

readln(m);

{Ââîä}

k:=1;

for i:=1 to n do

for j:=1 to m do begin

b[j][i]:=k;

inc(k);

end;

{Вывод}

writeln;

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

for i:=1 to n do begin

for j:=1 to m do begin

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

end;

writeln;

end;

{Решение}

tmp:=b[2];

b[2]:=b[m-1];

b[m-1]:=tmp;

{Вывод}

writeln;

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

for i:=1 to n do begin

for j:=1 to m do begin

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

end;

writeln;

end;

end.

17) Дана матрица С(NхМ).

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

переставив при этом минимальный

и максимальный элементы.

program num17;

const maxm = 100;

maxn = 100;

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

var tmp: real;

c: matrix;

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

imax, jmax, imin, jmin: integer;

max, min: real;

begin

writeln( 'Введите размер матрицы N' );

readln(n);

writeln( 'Введите размер матрицы M' );

readln(m);

{Ââîä}

k:=1;

for i:=1 to n do

for j:=1 to m do begin

c[i][j]:=k;

inc(k);

end;

{Вывод}

writeln;

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

for i:=1 to n do begin

for j:=1 to m do begin

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

end;

writeln;

end;

{Решение}

imin:=1;

jmin:=1;

min:=c[imin][jmin];

imax:=1;

jmax:=1;

max:=c[imax][jmax];

for i:=1 to n do begin

for j:=1 to m do begin

if c[i][j] > max then begin

max:=c[i][j];

imax:=i;

jmax:=j;

end;

if c[i][j] < min then begin

min:=c[i][j];

imin:=i;

jmin:=j;

end;

end;

end;

tmp:=c[imin][jmin];

c[imin][jmin]:=c[imax][jmax];

c[imax][jmax]:=tmp;

{Вывод}

writeln;

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

for i:=1 to n do begin

for j:=1 to m do begin

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

end;

writeln;

end;

end.

18) ------------------------

program num18;

const n=10;

type matrix = array[1..n,1..n] of integer;

Var I, j, k: integer;

a: matrix;

begin

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

for i:=1 to n do

for j:=1 to n do

a[i][j]:=0;

{Решение}

k:=0;

for i:=1 to n do begin

a[i][i]:=k;

inc(k);

end;

{Вывод}

writeln;

writeln( 'Матрица:' );

for i:=1 to n do begin

for j:=1 to n do begin

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

end;

writeln;

end;

end.

19)-------------------------------------

program num19;

const n=10;

type matrix = array[1..n,1..n] of integer;

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;

writeln( 'Матрица:' );

for i:=1 to n do begin

for j:=1 to n do begin

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

end;

writeln;

end;

end.

20) ----------------------------------

program num20;

const n=10;

type matrix = array[1..n,1..n] of integer;